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

Составьте на паскале программу которая запрашивает возраст двух детей саши и маши, а затем выводит информацию о том, кто из них старше

👇
Ответ:
makarovanasta201
makarovanasta201
09.02.2022

uses crt;
var

  a,b:integer;
begin
  write('Введи возраст Саши: '); read(a);

  write('Введи возраст Маши: '); read(b);

  writeln;
  if a>b then write('Саша старше Маши');
  if a<b then write('Маша страше Саши');
  if a=b then write('Маша и Саша - ровесники');
end.

4,5(31 оценок)
Открыть все ответы
Ответ:
qd1337
qd1337
09.02.2022

program z1;

  var a,b,k,i:integer;

    begin

      k:=0;

      write('Ââåäèòå êîîðäèíàòó à: ');

      read(a);

      write('Ââåäèòå êîîðäèíàòó b: ');

      read(b);

      for i:=a to b do begin

                       if i mod 3=0 then begin

                                           writeln(i);

                                           k:=k+1;

                                         end;

                       end;

      writeln('Количество чисел кратных трём равно ',k);

     readln;

    end.

4,5(72 оценок)
Ответ:
olgastavovaya1
olgastavovaya1
09.02.2022

program z1;

  var a,b,k,i:integer;

    begin

      k:=0;

      write('Ââåäèòå êîîðäèíàòó à: ');

      read(a);

      write('Ââåäèòå êîîðäèíàòó b: ');

      read(b);

      for i:=a to b do begin

                       if i mod 3=0 then begin

                                           writeln(i);

                                           k:=k+1;

                                         end;

                       end;

      writeln('Количество чисел кратных трём равно ',k);

     readln;

    end.

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