УВ 1:
Вначале у тебя а -5, а б-6.
Потом условие: если а меньше трёх, то а становится равной б, но ведь а это 5, т.е. этого мы не делаем.
И последнее: д=а+б=5+6=11
ответ:11
УВ 2:
А=3, б=2.1
Б<а? Да, меньше, т.к. 2.1 меньше 3
Значит выполним действие: напечатаем б, т.е.2.1
Затем в обязательном порядке напечатаем а, т.е.3
В итоге на экране напечатано будет:2.13
Ув3:
А,б,ц равны 3,4,5 соответственно
А меньше 4? Да, меньше, почему печатаем число а,число б и число ц, т.е. будет напечатано 3 4 5.
Иначе напечатолось бы сумма 3,4,5, т.е. 12
Ув4:
М=2
М >2?
Нет, не больше, значит м=м*м, т.е. 4
Задача 1
program z1;
var n,a,i,k:integer;
begin
write ('Введите количество чисел: ');
read (n);
for i:=1 to n do
begin
write ('Введите число: ');
read (a);
if a = 0 then k:=k+1
end;
writeln('Количество нулей среди чисел: ',k)
end.
Задача 2
program z2;
var n,a,i,m:integer;
begin
write ('Введите количество чисел: ');
read (n);
for i:=1 to n do
begin
write ('Введите число: ');
read (a);
if i = 1 then m:=a;
if a > m then m:=a
end;
writeln('Максимальное число среди чисел: ',m)
end.
или
program z2;
var n,i,m:integer;
a:array[1..100] of integer;
begin
write ('Введите количество чисел (n<=100): ');
read (n);
for i:=1 to n do
begin
write ('Введите число: ');
read (a[i]);
if i = 1 then m:=a[i];
if a[i] > m then m:=a[i]
end;
writeln('Максимальное число среди чисел: ',m)
end.
