Сделайте программу в паскале abc! сли вводишь год рождения он выводит век
5-9 класс
|
Program p1;
var
y:integer;
begin
write('Введите год, год = ');
readln(y);
Writeln('Век = ',y div 100);
end.
var
a:integer;
begin
readln (a);
if a mod 100=0
then writeln (a div 100)
else writeln ((a div 100)+1, ' век')
end.
поясню. к примеру, 2000 год - это еще 20 век, а не 21
Другие вопросы из категории
количество чисел меньших 16.
условие:
составить программу, которая выводит на экран значение выражения X- в десятой степени, при условии X<5
????????????????????????????????????????????????????????????????????
Читайте также
массу кирпича. P=1400 кг/м3, V=25*12*6.5
Формула для нахождения массы: m= V*P
V - объём
m - масса
P - плотность
Найдите произведение цифр заданного четырехзначного числа...Сделать программу на Паскаль
a) Тип треугольника, который получается при построении по хаданным сторонам треугольника;
составить программу в паскале abc с условным оперетором ( if,then)
к стиху
Если вас поймала мама
За любымым делом вашим,
Например, за рисованьем
В коридоре на обоях,
Объясните ей, что это
Ваш сюрприз
к Восьмому марта.
Называется картина
Милой мамочки портрет.
что запись получившегося числа У в шестнадцатеричной системе также имеет ровно три значащих разряда, причем сумма цифр шестнадцатеричной записи исходного числа Х равна сумме цифр шестнадцатеричной записи полученного числа У. Сколько существует таких чисел Х,
которые удовлетворяют указанным условиям и при этом содержат хотя бы одну цифру 2 в своей шестнадцатеричной записи? В ответе укажите целое число.
Сделайте пожалуйста на Паскале ABC