НА ПАСКАЛЕ
1. Составьте программу, увеличивающую введенное число на 1, если
оно больше или равно100 и уменьшающее число на 1 в противном
случае.
2. Составить программу, запрашивающую возраст и отвечающую
«Привет друг» если возраст введен меньше 16 лет и отвечающую «Не
знаю тебя» в противном случае.
3. Составить программу - отзывающуюся только на имя «Петя».
Пожалуйста....
1. Составьте программу, увеличивающую введенное число на 1, если
оно больше или равно100 и уменьшающее число на 1 в противном
случае.
2. Составить программу, запрашивающую возраст и отвечающую
«Привет друг» если возраст введен меньше 16 лет и отвечающую «Не
знаю тебя» в противном случае.
3. Составить программу - отзывающуюся только на имя «Петя».
Пожалуйста....
More Questions From This User See All
Answers & Comments
1) program n1;
var a:integer;
begin
writeln ('Введите натуральное число:');
readln (a);
if a>=100 then
writeln (a+1)
else writeln (a-1)
end.
2) program n2;
var a:integer;
begin
writeln ('Сколько тебе лет?');
readln (a);
if a<=16 then
writeln ('Привет друг')
else writeln ('Не знаю тебя')
end.
3) program n3;
var a:string;
begin
writeln ('Введи имя');
readln (a);
if a='Петя' then
writeln ('Привет друг')
else writeln ('Не знаю тебя')
end.