М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
zufa11
zufa11
29.06.2020 17:40 •  Информатика

Надо дано целое число к. вывести строку-описание оценки, соответствующей числу к (1- "плохо" , 2- "неудовлетворительно" , 3 - "удовлетворительно" , 4- "хорошо" , 5- "отлично". если к не лежит в диапазоне 1-5 , вывести "ошибка".

👇
Ответ:
mboyko2005
mboyko2005
29.06.2020

Можно ещё использовать оператор выбора case

 

Program pr;
uses crt;
Var k:integer;
Begin
Writeln('Введите k');
readln(k);
if (k>=1) and (k<=5) then
Begin
case k of
1: Writeln('Плохо');
2: Writeln('Неудовлетворительно');
3: Writeln('удовлетворительно');
4: Writeln('Хорошо');
5: Writeln('Отлично');
end;
end
else Writeln('Ошибка');
readln;
end.


Надо дано целое число к. вывести строку-описание оценки, соответствующей числу к (1- плохо , 2- н
4,4(34 оценок)
Ответ:

во вложениях скрин Паскаль АВС. должно быть правильно

4,7(89 оценок)
Открыть все ответы
Ответ:
am06071990
am06071990
29.06.2020

Первая

var n,x:integer;

begin

 readln(n);

 while n <> 0 do begin

  x:=x + n mod 10;

  n:=n div 10;

 end;

 if(x mod 2 = 0) then

   writeln('true')

 else

   writeln('false');

end.

Вторая

var x,z,s:integer;

begin

 readln(x);

 if (x > 99) and (x < 1000) then begin

   s:=x;

   while s<>0 do begin

     z:=z+s mod 10;

     s:=s div 10;

   end;

   if(x*x) = (z*z*z) then

     writeln('true')

   else

     writeln('false');

 end

 else

   writeln('Число должно быть 3-ех значным!');

end.

Третья

Var a,b,c:Real;  

Begin  

 Writeln('Введите a');

 Readln(a);

 Writeln('Введите b');

 Readln(b);

 Writeln('Введите c');

 Readln(c);

 if (a=b) or (a=c) or (b=c) then

   writeln ('true')

 else

   writeln ('false);

end.

4,6(91 оценок)
Ответ:
6666628
6666628
29.06.2020

Первая

var n,x:integer;

begin

 readln(n);

 while n <> 0 do begin

  x:=x + n mod 10;

  n:=n div 10;

 end;

 if(x mod 2 = 0) then

   writeln('true')

 else

   writeln('false');

end.

Вторая

var x,z,s:integer;

begin

 readln(x);

 if (x > 99) and (x < 1000) then begin

   s:=x;

   while s<>0 do begin

     z:=z+s mod 10;

     s:=s div 10;

   end;

   if(x*x) = (z*z*z) then

     writeln('true')

   else

     writeln('false');

 end

 else

   writeln('Число должно быть 3-ех значным!');

end.

Третья

Var a,b,c:Real;  

Begin  

 Writeln('Введите a');

 Readln(a);

 Writeln('Введите b');

 Readln(b);

 Writeln('Введите c');

 Readln(c);

 if (a=b) or (a=c) or (b=c) then

   writeln ('true')

 else

   writeln ('false);

end.

4,4(10 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ