3.
Написать программу, которая бы запрашивала целое число и выводила любое его
значение, кроме 13. Если заданное число равно 13, вместо него печатается число
77.
по примеру :
program www;
var x,y: integer;
begin
writeln (‘. ‘);
readln (x,y);
if . ( условие) then writeln (значит-то то)
else writeln (иначе-то то)
Источник: znanie.site
Срочно нужно. Помогите. 1.Составить программу, которая спрашивает возраст человека и, если ему 18 лет и больше, сообщает “Замечательно. Вы уже можете водить автомобиль”, а в противном случае – “К сожалению, водить автомобиль .
Срочно нужно. Помогите. 1.Составить программу, которая спрашивает возраст человека и, если ему 18 лет и больше, сообщает “Замечательно. Вы уже можете водить автомобиль”, а в противном случае – “К сожалению, водить автомобиль Вам рановато”. 2. Определить номер подъезда девятиэтажного дома по указанному номеру квартиры N. Считать, что на каждом этаже находится M квартир.
Программа для решения корней квадратного уравнения с использованием дискриминанта на языке Паскаль
3. Написать программу, которая бы запрашивала целое число и выводила любое его значение, кроме 13. Если заданное число равно 13, вместо него печатается число 77. по примеру : program www; var x,y: integer; begin writeln (‘. ‘); readln (x,y); if . ( условие) then writeln (значит-то то) else writeln (иначе-то то)
Источник: cwetochki.ru
Составить программу которая спрашивает возраст человека и если ему 18 лет и больше сообщает паскаль
August 2021 2 14 Report
Составить программу, которая спрашивает возраст человека и, если ему 18 лет и больше,сообщает «Замечательно. Вы уже можете водить автомобиль», а в противном случае-«К сожалению, водить автомобиль вам рано».
Answers
readln(age);
if age >= 18 then
writeln(‘Замечательно. Вы уже можете водить автомобиль’)
else
writeln(‘К сожалению, водить автомобиль вам рано’);
end.
2 votes Thanks 4
Verified answer
Var
a : integer;
begin
writeln(‘сколько вам лет’);
readln(a);
if a>18 then
writeln(‘замечательно.Вы уже можете водить машину ‘)
else
writeln(‘вам нет 18 Водить вам рано’);
end.
Источник: scholar.tips