В объяснении
Объяснение:
program zadacha;
const n= 6, m=6;
var a:array[1..n, 1..m] of integer;
i, j, s, k: integer;
begin
RANDOMIZE;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:= random (100)-50;
write(a[i,j]:5);
end;
writeln;
end;
s:=0;
k:=0;
for i:=1 to n do
for j:=1 to m do
if i>j then
begin
k:=k+1;
s:=s+a[i,j];
end;
writeln('Сумма=',s);
writeln('Количество=',k);
readln;
end.
На паскале
program zadanije_tri;
var a, b, c:integer;
begin
writeln('Введите первое число.');
readln(a);
writeln('Введите второе число.');
readln(b);
if a=b then
begin
c:=a*a+b*b;
writeln('Введённые числа равны, сумма их квадратов равна ',c,'.');
end
else
begin
c:=(a+b)*(a+b);
writeln('Введённые числа не равны, квадрат их суммы равен ',c,'.');
end
end.
Объяснение:
Если ввести равные ЦЕЛЫЕ числа, то программа выдаст сумму их квадратов, если ввести разные числа, то программа выдаст квадрат их суммы.
Алгоритм приготовки чая:
1. Взять чайник
2.Открыть крышку чайника
3. открыть кран
4. Налить воду
5. Закрыть кран
6. Закрыть крышку чайника
7. Поставить чайник на гас плиту
8. Включить гас плиту
9. Выключить гас плиту
10. Взять кружку
11. Взять чайник
12. Налить в кружку воды
13. Взять пакетик с заваркой
14. положить пакетик в кружку
15. Поставить чайник на место
16. Взять ложку
17. Взять сахар
18. Насыпать сахар в чай
19. Размешать чай
20. Пить чай