Вводится возраст человека. Вывести на экран, является ли он ребенком, молдых лет или пожилым
5-9 класс
|
uses crt;
var x:integer;
begin
write('Лет:'); read(x);
if (x>=5) and (x<=18) then write('Ребенок.');
if (x>18) and (x<=45) then write('Молодой человек.');
if (x>55) and (x<=100) then write('Пожилой.');
end.
Например,а про человека(какой он),не всегда можно по годам определить!
Другие вопросы из категории
Надо сменить в языке Паскаль с While на Repeat !!!
Program P1;
Var a,n:integer;
Begin
Write ('a='); readln(a);
While a<>0 do begin
n:=n+1; a:=a div 10;
End;
Writeln('n=',n); readln
end.
Он сейчас в While, надо сменить этого в Repeat. Помогите ребята!!! Заранее благодарен!!!
даны два числа х, у большее из них возвести в квадрат.
Читайте также
Вводятся три числа. Вывести на экран число с минимальной суммой цифр.
Помогите пожалуйста в Паскале
Вывести на экран часть массива входящих в диапазон, двух введенных чисел. Эти два числа будут индексами к тем числам, которые надо вывести.
составлении условия учесть, что если число делится на 3, то то остаток от деления на 3 должен быть равен 0.
3. Дана программа на языке Паскаль.
var a,n,s: integer;
begin
s:=0;
n:=0;
repeat;
write('Введите число ');
readln(a);
s:=s+a;
n:=n+1;
until s>100;
writeln('Количество введенных чисел = ' ,n);
end.
Переписать программу используя цикл While.
4. Вывести на экран массив целых чисел, Состоящий из 15 элементов, значение которого из которых сгенерировано случайным образом из диапазона [20,60].
«итог. сумма».
Задание 2.
Переменной Х присвоить значение 7. Переменной Р присвоить значение, равное квадрату Х. Вывести значения переменных Х и Р (через запятую). Значение Х увеличить на Х. Переменной Р присвоить значение, равное корню квадратному из Х. Вывести значения переменных Х и Р (через запятую).DIKTANT 2
Задание 1.
Значение переменной Х присвоить в программе. При неотрицательном значении Х переменной У присвоить значение, равное корню квадратному из Х. В противном случае, переменной У присвоить значение, равное квадрату Х. Вывести на экран значение Х и значение У.Задание 2.
Двум произвольным переменным присвоить произвольным образом соответственно 2 числа. Двум другим переменным присвоить значения, равные тангенсам двух предыдущих переменных. Вывести на экран значения всех переменных, а так же сумму значений двух последних переменных. помогите сделать пожПомогите пожалуйста, тему пропутила и никак не могу понять как сделать.