50 баллов!!!!
1. Пользователь вводит два числа. Найдите сумму и произведение данных чисел.
2. Вычислите значение выражения (a+4b)(a−3b)+а²
3. Дано число. Если оно больше 3, то увеличить число на 10, иначе уменьшить на 10.
4. Дано два числа. Вывести yes, если они отличаются на 100, иначе вывести No.
284
287
Ответы на вопрос:
ответ:1)var a,b,c,d;integer;
begin
readln(a,b);
c:=a+b;
d:=a*b;
writeln(‘сумма’,c);
writeln(‘произведение’,d);
end.
Const n=10; m=5; var i,j,s: integer; a: array[1..m,1..n]of integer; b: array[1..n]of integer; begin writeln('массив а: '); for i: =1 to m do begin for j: =1 to n do begin a[i,j]: =random(10); write(a[i,j]: 3); end; writeln; end; for j: =1 to n do begin s: =0; for i: =1 to m do s: =s+a[i,j]; b[j]: =s; end; writeln('массив в: '); for i: =1 to n do write(b[i]: 3); end.
Популярно: Информатика
-
masgovorchenko05.04.2022 21:22
-
garachuk7503.04.2021 23:35
-
prohov1407.06.2022 10:51
-
medvedevastasy16.04.2020 23:29
-
Оля1111111015.09.2021 16:56
-
Antik300610.08.2020 08:31
-
2810vika11.04.2022 18:19
-
denisshirockow02.01.2022 15:08
-
7sergeya26.02.2023 14:52
-
eriknovoselov15.02.2022 08:54