Запрограммировать 3 разветвляющихся алгоритмаЗапрограммировать - вопрос №116118813 от vikaplmplmpl 05.11.2020 06:24

Question

Информатика: Запрограммировать 3 разветвляющихся алгоритмаЗапрограммировать решение задач на языке Паскаль и выслать листинг на почту (или ВК): 1) Программа предлагает вычислить выражение 12*6 - 13*3 и ввести ответ с клавиатуры. Если ответ верен, то вывести на экран фразу Правильно! , иначе - вывести Ошибка в расчётах! 2) Программа запрашивает возраст. Если введён воздаст до 14 лет, то программа выводит Вы ещё не получили паспорт!, иначе - программа выводит Пасторт вами получен! . 3*) Составьте программу Покупка

vikaplmplmpl · Answer

1.program xopow1;   uses   crt;   var   a, b, Sek: integer;   begin   writeln( Введите границы: );   repeat     readln(a, b);   until b = a;   clrscr;   for a := a to b do    begin     Sek := a * 60;     writeln(a, мин. = , sek, сек. )   end end.2.program xopow2;  uses crt; Var z:integer; f,x,y:real; Begin clrscr; Writeln;X:=10000;Y:=(x/100)*10;for z:=1 to 7 do  Begin X:=x+y; Writeln(Z, -й день тренировок спортсмен пробежал ,X:3:2, Км. ); End; Writeln( Нажмите Enter... );  Readln; end....