Предмет:
ИнформатикаАвтор:
sundayflz5Автор:
minnie2lqlАвтор:
nehemiah8xfuАвтор:
jessiegrimesvar a:integer;
begin
write ('Введите количество баллов: ');
read (a);
if (a>=8) and (a<=14) then begin
writeln ('Оценка 3');
end;
if (a>=15) and (a<=21) then begin
writeln ('Оценка 4');
end;
end.
Автор:
midnightqasoprogram grade;
var
a : integer;
begin
writeln('Введите количество баллов');
read(a);
case a of
8..14 : writeln('оценка 3');
15..21 : writeln('оценка 4')
else
writeln ('Введите значения из диапазона 8-21');
end;
end.
Автор:
ann51Добавить свой ответ
Предмет:
МатематикаАвтор:
mountaini8ibОтветов:
Смотреть
Предмет:
Английский языкАвтор:
elmo2tllОтветов:
Смотреть
Предмет:
ЛитератураАвтор:
kodafrancoОтветов:
Смотреть