

//Pascal
var A: integer;
begin
write('Введите число: '); readln(A);
if A mod 10 = 1 then writeln(A,' год.')
else
if ((A mod 10 = 2) or (A mod 10 = 3) or (A mod 10 = 4)) then
writeln(A,' года.')
else writeln(A,' лет.')
end.

Program VV;
var a: integer;
begin
Writeln ('Введите число от 1 до 10');
Readln(a);
if (a = 1) then begin
writeln (a, ' год');
end;
if (a = 2) or (a = 3) or ( a = 4) then begin
writeln (a,' года');
end;
if (a = 5) or (a = 6 ) or (a = 7) or (a = 8) or (a = 9) or (a = 10) then begin
writeln (a, ' лет ');
end;
end.

Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Найти другие ответы
Информатика, опубликовано 08.11.2018
В ячейку С6 записать формулу, которая выражение А4+А5-А6 делит на сумму чисел А7 и А8.

Информатика, опубликовано 08.11.2018
Напишите программу в паскале по этой блок-схеме. Умоляю
20 баллов

Информатика, опубликовано 08.11.2018
Сколько цифр 1 в двоичном представлении десятичного числа 12


Информатика, опубликовано 08.11.2018
Помогите пожалуйста очень очень надо плис как это сделать объясните