1)
var a:real;
begin
writeln('Введите число');
readln(a);
if(a>8) then writeln('Число больше восьми') else writeln('Число меньше восьми');
end.
2)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 3 = 0) then writeln('Число делится на 3') else writeln('Число не делится на 3');
end.
3)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a mod 2 = 0) then writeln('Число чётное') else writeln('Число нечётное');
end.
4)
var a,b:longint;
begin
writeln('Введите числа');
readln(a,b);
if(a>b) then writeln(b) else writeln(a);
end.
5)
var a:longint;
begin
writeln('Введите число');
readln(a);
if(a>0) then a:=a+5 else a:=a-1;
writeln(a);
end.
6)
var a,i,k:longint;
begin
k:=0;
for i:=1 to 3 do begin writeln('Введите число'); readln(a); if(a>0) then k:=k+1; end;
writeln(k,' ','положительных чисел');
end.
Таблицу покажи а то так невыполнить
1.
Потому что в остальных есть цифра 3,4
А=7
Б=10*7=70
Х=7+70*7=497
ответ: 497
то что подчеркнуто на минимальный возвраст группы заменить.
? "Введите возвраст человека"
INPUT A
IF A><span>пенсионер</span> THEN 1 ELSE 2
1 ? "группа пенсионеров" : GOTO 10
2 IF A><span>работник</span> THEN 3 ELSE 4
3 ? "группа работников" : GOTO 10
4 IF A><span>ученик</span> THEN 5 ELSE 6
5 ? "группа учеников" : GOTO 10
6 ? "группа дошкольников"
10 END