Задания для самостоятельной работы:1. Имеются два числа.a) Вычислите сумму и разность этих чисел, используя два оператора readln.b) Перепишите программу так, чтобы использовался один оператор readln.c) Добавьте комментарии к пр...
Задания для самостоятельной работы:
1. Имеются два числа.
a) Вычислите сумму и разность этих чисел,
используя два оператора readln.
b) Перепишите программу так, чтобы
использовался один оператор readln.
c) Добавьте комментарии к программе.
2. Имеются три числа. Вычислите их
произведение.
3. По заданным сторонам прямоугольника a и
b вычислите его периметр и площадь.
4. Человеку сегодня исполнилось R лет.
Сколько ему дней? Часов? Минут? Секунд? (Високосные годы не учитывать)
Гость
Ответ(ы) на вопрос:
Гость1(a)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа');
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;
begin
writeln('введите два числа');
readln(a,b);
c:=a+b;
d:=a-b;
writeln(c,d);
readln;
end.
c)
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите два числа'); //здесь вводим два числа
readln(a,b);
c:=a+b;
d:=a-b;
writeln(c,d);
readln;
end.
2.
Program Zadanie;
var a,b,c,d:integer;
begin
writeln('введите три числа');
readln(a,b,c);
d:=a*b*c;
writeln(d);
readln;
end.
3.
Program Treugol;
var a,b,c,d:real;
begin
writeln('введите два числа');
readln(a,b);
c:=2*(a+b);
d:=a*b;
writeln(c,d);
readln;
end.
4.
Program Goda;
var R:real;
begin
write('введите 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.
Надеюсь на лучший ответ и на спасибо:)
Не нашли ответ?
Похожие вопросы