Ответы
Ответ дал:
0
Program one;
var a,b,c,k: integer;
begin
writeln ('Введите числа, нажимая после каждого enter');
readln (a);
readln (b);
readln (c);
k:=0;
If a>0 then k:=k+1 else k:=k+0;
If b>0 then k:=k+1 else k:=k+0;
If c>0 then k:=k+1 else k:=k+0;
writeln ('Количество положительных чисел ', k)
end.
var a,b,c,k: integer;
begin
writeln ('Введите числа, нажимая после каждого enter');
readln (a);
readln (b);
readln (c);
k:=0;
If a>0 then k:=k+1 else k:=k+0;
If b>0 then k:=k+1 else k:=k+0;
If c>0 then k:=k+1 else k:=k+0;
writeln ('Количество положительных чисел ', k)
end.
Ответ дал:
0
Даны два числа. Вывести порядковый номер меньшего из них.
Ответ дал:
0
Program one;
var a,b,k: real;
begin
writeln ('Введите числа, нажимая после каждого enter');
readln (a);
readln (b);
If a>b then k:=2 else k:=1;
writeln (k)
end.
var a,b,k: real;
begin
writeln ('Введите числа, нажимая после каждого enter');
readln (a);
readln (b);
If a>b then k:=2 else k:=1;
writeln (k)
end.
Похожие вопросы
7 лет назад
7 лет назад
9 лет назад
9 лет назад