Задания для самостоятельной работы: 1. Имеются два числа.a) Вычислите сумму и…

Question

69

Задания для самостоятельной работы: 1. Имеются два числа.a) Вычислите сумму и разность этих чисел, используя два оператора readln.b) Перепишите программу так, чтобы использовался один оператор readln.c) Добавьте комментарии к программе. 2. Имеются три числа. Вычислите их произведение.3. По заданным сторонам прямоугольника a и b вычислите его периметр и площадь.4. Человеку сегодня исполнилось R лет. Сколько ему дней? Часов? Минут? Секунд? (Високосные годы не учитывать)

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

guiper · Accepted Answer

1 (a) Program Zadanie; var a,b,c,d: integer; beginwriteln ('введите два числа'); readln (a,b); c: =a+b; writeln (c); readln; d: =a-b; writeln (d); readln; end.b) Program Zadanie; var a,b,c,d: integer; beginwriteln ('введите два числа'); readln (a,b); c: =a+b; d: =a-b; writeln (c,d); readln; end.c) Program Zadanie; var a,b,c,d: integer; beginwriteln ('введите два числа'); //здесь вводим два числаreadln (a,b); c: =a+b; d: =a-b; writeln (c,d); readln; end.2.Program Zadanie; var a,b,c,d: integer; beginwriteln ('введите три числа'); readln (a,b,c); d: =a*b*c; writeln (d); readln; end.3.Program Treugol; var a,b,c,d: real; beginwriteln ('введите два числа'); readln (a,b); c: =2*(a+b); d: =a*b; writeln (c,d); readln; end.4.Program Goda; var R: real; beginwrite ('введите R'); readln (R); d: =R*356; c: =d*24; m: =c*60; s: =m*60; writeln (d); writeln (c); writeln (m); writeln (s); readln; end. Надеюсь на лучший ответ и на спасибо

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: