1. Информатика
  2. Склавиатуры вводится

Склавиатуры вводится возраст мужчины. определить сколько лет ему осталось до пенсии или вывести на экран слово пенсионер если он достиг пенсионного возраста

путникспутник путникспутник    2   18.05.2019 08:00    0

Ответы
oriano oriano  11.06.2020 14:23

Program p2;

Var a:integer;

Begin

Readln(A);

If a< {введите вместо этого пенсионный возраст } then

 Writeln('До пенсии осталось', {введите вместо этого пенсионный возраст }-a,’ лет.’) else

 Writeln(‘Пенсионер’);

End.

 

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
mshshjsbdhikbcg mshshjsbdhikbcg  01.10.2019 00:30
Какая формула соответствует поиску документа, который обязательно содержит все три слова? игра| инженер | игра инженер игра *инженер игра инженер игра +инженер + игра...
AliskaLao16 AliskaLao16  01.10.2019 00:30
На канцелярские товары потратили 310 рублей. известно, что ручек купили 20 по цене 4 рубля, блокнотом 10 по цене 13 рублей. определите основание системы счисления,...
Женьочки Женьочки  06.06.2019 20:50
Дан массив из 20 элементов вводиться с клавиатуры , подсчитать количество отрицательных элементов...
madhinamelinova madhinamelinova  06.06.2019 20:50
Найдите ошибку в 7 строке(qbasic) : cls k = 0 dim b(k) input n for i = 1 to n input a if a 0 and a mod 3 = 0 then k=k+1 : b(k) = a next i if k 0 then goto 10 else goto...
девочка261 девочка261  06.06.2019 20:50
Написать программу, которая определяет, делителем каких чисел (среди трех введенных) является число z. (язык программирования - паскаль)...
kisik404 kisik404  06.06.2019 20:50
Program temperature; var t: array[1..12] of real; i: integer; tsred: real; begin for i: =1 to 12 do begin write( t[ , i: 2, ]= ); read (t[i]) end; tsred: =0; for i:...
ksenchernova ksenchernova  06.06.2019 19:14
Даны два четырёхзначных числа a и b. выведите все четырёхзначные числа на отрезке от a до b, запись которых является палиндромом. прога на питоне !...
провривррф провривррф  06.06.2019 19:36
Запишите подряд без пробелов и разделителей последние пять чисел, которые будут напечатаны на экране при выполнении вызова f(2). числа должны быть записаны в том порядке,...
ruslangusen ruslangusen  06.06.2019 19:56
Три магазина заказывают на складе книжки. если магазин заказывает больше 30 экземпляров какой-либо книги, склад уменьшает стоимость заказа на 10%. составить таблицу,...
tubip888 tubip888  06.06.2019 20:50
Как сделать эту в экселе, подскажите / ms office excel задан массив b1, b2, b3, … bn. все элементы, равные 7 заменить единицей и подсчитать количество таких элементов....

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