Program p1; var k,t:integer; begin write('кг = '); readln(k); t:=k div 1000; writeln('В ',k,' кг полных тонн ',t); end.
Пример: кг = 54937 В 54937 кг полных тонн 54
program p2; var a,b,k:integer; begin a:=543; b:=130; k:=a div b; writeln('Количество квадратов = ',k); end.
Результат: Количество квадратов = 4
program p3; var a,b:integer; begin write('Введите четырехзначное число: '); readln(a); b:=9*10000+a; writeln('Полученное число = ',b); end.
Пример: Введите четырехзначное число: 4937 Полученное число = 94937
program p4; var a,b:integer; begin write('Введите трехзначное число: '); readln(a); b:=(a mod 100)*10 + a div 100; writeln('Полученное число = ',b); end.
Пример: Введите трехзначное число: 437 Полученное число = 374
program p5; var v1,v2,v3,t1,t2,t3,s:real; begin write('v1, t1: '); readln(v1,t1); write('v2, t2: '); readln(v2,t2); write('v3, t3: '); readln(v3,t3); s:=v1*t1+v2*t2+v3*t3; writeln('Пройденный путь = ',s:5:2, ' км '); end.
Пример: v1, t1: 5 2 v2, t2: 3 0.5 v3, t3: 4 1.5 Пройденный путь = 17.50 км
Напишите программу, которая выбирает максимальное и минимальное из пяти введённых чисел.3.напишите программу, которая определяет, верно ли, что введённое число – трёхзначное.4.напишите программу, которая вводит номер месяца и выводит название времени года.оператор выбора использовать не разрешается. при вводе неверного номера месяца долж‐но быть выведено сообщение об ошибке.5.решите предыдущую с оператора выбора.6.напишите программу, которая вводит с клавиатуры номер месяца и определяет, сколько дней в этом месяце. при вводе неверного номера месяца должно быть выведено сообще‐ние об ошибке.7.напишите программу, которая вводит с клавиатуры номер месяца и день, и определяет,сколько дней осталось до нового года. при вводе неверных данных должно быть выведено сообщение об ошибке.8.напишите программу, которая вводит возраст человека (целое число, не превышающее 120)и выводит этот возраст со словом «год»,«года» или «лет». например,«21 год»,«22 года»,«25 лет».9.напишите программу, которая вводит целое число, не превышающее 100, и выводит его прописью, например,21→«двадцать оди
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку