1. Информатика
  2. Вывести возраст человека

Вывести возраст человека ( от 1 до 99) и вывести возраст со словом ( год, года или лет) эот через программу паскаль) как ниписать в программе типо такого: program qq; и тд

Natalye71 Natalye71    2   19.05.2019 14:00    0

Ответы
Malika274 Malika274  30.09.2020 23:01

program qq;
var a:integer;
begin
readln(a);
a:=a mod 10;
if a=1 then writeln('god')
else if (a=2) or (a=3) or (a=4) then writeln ('goda')
else writeln('let');
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
andreymatv2p0duh5 andreymatv2p0duh5  17.06.2021 10:22
Информатика ! в одномерном массиве размерностью N случайных чисел в интервале от -30 до 30 определить сколько положительных элементов кратно 3. Исходный массив и ответ вывести на...
yuliyanefedova yuliyanefedova  17.06.2021 10:21
Напишите к этому коду коментарии(что каждая строчка обозначает). С++ #include #include #include #include using namespace std; int main() { setlocale(LC_ALL, Ukr ); srand((int)time(0));...
nastyap20032 nastyap20032  17.06.2021 10:15
мне выразить 28 и 38 строку оператором printf или scanf. С++...
stozhok1998 stozhok1998  17.06.2021 10:09
2 курс, информатика. Что это такое - я и сам без понятия, но вроде как это проблемная ситуация, заданная матрицей (я знаю, что её тут нет, но о чём тогда говорят буквы m и u?) к которой...
Заноза19 Заноза19  17.06.2021 10:07
создать ER диаграмма . По вот этрму заданию. 10...
люблютебя4 люблютебя4  09.07.2019 00:00
задан заголовок процедуры procedure sokr(a,b: integer; v ar c,d: integer); найти ошибки в указании обращения к процедуре: а) sokr(3,4,5,6); б) sokr(3,4,a,b); в) sokr(k+1,4,n,7); г)...
regina1002 regina1002  09.07.2019 00:00
задан заголовок функции function max2 (f,g: real): real; найти ошибки в указании обращения к функции: а) if max2 (a,b) then write ( a b ) else write ( a б) read (max2 (a,b));...
Bosik222 Bosik222  21.05.2020 09:51
В текстовом редакторе видны слово и курсор. После нажатия кнопки удаления виден результат. Напиши, какая кнопка была нажата (Backspace или Delete). MSS|Paint taust.png MS Paint...
ZA25 ZA25  21.05.2020 09:51
Для сохранения текстового файла на диск не надо указывать ЗАРАНЕЕ...
Vыдыhaй1235 Vыдыhaй1235  12.09.2019 19:20
8. (2011) доступ к файлу net.txt, находящемуся на сервере html.ru, осуществляется по протоколу http. в таблице фрагменты адреса файла закодированы цифрами от 1 до 7. запишите последовательность...

Популярные вопросы