var
count, min, max: integer;
str: string;
begin
min := 191;
max := 149;
readln(str);
while (str <> '!') do
begin
if (str.ToInteger in [150..190]) then
begin
if (str.ToInteger > max) then max := str.ToInteger
else if (str.ToInteger < min) then min := str.ToInteger;
count := count + 1;
end;
readln(str);
end;
writeln(count);
write(min, ' ', max);
end.
I = 2.
A = 6.
1. A = 6 + 2 = 8.
I = 2 + 1 = 3.
2. A = 8 + 3 = 11.
I = 3 + 1 = 4.
3. A = 11 + 4 = 15.
I = 4 + 1 = 5.
Ответ: A = 15, I = 5.
20 и 15 это десятичные числа?
Их нужно просто сложить и результат перевести в пятеричную систему
1 обработка информации
2 никакое
3 сохранение информации
4 не знаю, возможно сохранение графической информации
1)
Var
x,y:real;
Begin
Write('x = ');
ReadLn(x);
if x > -1 then y:=2*x-3
else y:=5*x*x;
WriteLn('y = ',y);
End.
Проверка:
x = 5
y = 7
x = -3.4
y = 57.8
2)
Var
A:integer;
Begin
Write('Введите целове число: ');ReadLn(A);
if A mod 2 <> 0 then Write('Число - нечётное')
else Write('Число является ЧЁТНЫМ')
End.