• 
  • 26 December 2020
  Информатика
  • Автор: veselkova04

  

  напишите программу которая запрашивает трёхзначное число получает из него перевёрнутое число и выводит его на экран
  Информатика 8 класс, помогите пожалуйста!!!

• 
  • 26 December 2020
  • Ответ оставил: mcpixel96

  1 задача

  program proga;

  var st,st2:string;

  i:Integer;

  begin

  writeln('Введите число');

  readln(st);

  for i:=1 to length(st) do begin

  st2:=st[i];

  write(st2,' ');

  end;

  end.

  2 задача

  program proga2;

  var st,st2:string;

  i,a:Integer;

  begin

  writeln('Введите возраст');

  readln(a);

  if a>120 then

  writeln('Неверные данные');

  if a=1 then

  writeln(a,' год');

  if (a>1) and (a<5) then

  writeln(a,' года');

  if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год');

  if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then

  writeln(a,' лет');

  if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года ');

  if(a>104) and (a<110)then writeln(a,' лет');

  end.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (27.02.2026) наш сайт содержит 109576 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы