Question

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

Answer 1

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.

Надеюсь на лучший ответ и на спасибо:)

Answer 2

1. Программа для вычисления суммы и разности двух чисел с использованием двух операторов readln:

lessCopy code
program sum_and_diff;
var
  a, b, sum, diff: integer; // объявление переменных
begin
  writeln('Введите два числа: ');
  readln(a); // ввод первого числа
  readln(b); // ввод второго числа
  sum := a + b; // вычисление суммы
  diff := a - b; // вычисление разности
  writeln('Сумма: ', sum); // вывод суммы
  writeln('Разность: ', diff); // вывод разности
end.

1. Программа для вычисления суммы и разности двух чисел с использованием одного оператора readln:

lessCopy code
program sum_and_diff;
var
  a, b, sum, diff: integer; // объявление переменных
begin
  writeln('Введите два числа через пробел: ');
  readln(a, b); // ввод двух чисел
  sum := a + b; // вычисление суммы
  diff := a - b; // вычисление разности
  writeln('Сумма: ', sum); // вывод суммы
  writeln('Разность: ', diff); // вывод разности
end.

2. Программа для вычисления произведения трех чисел:

lessCopy code
program multiplication;
var
  a, b, c, prod: integer; // объявление переменных
begin
  writeln('Введите три числа: ');
  readln(a, b, c); // ввод трех чисел
  prod := a * b * c; // вычисление произведения
  writeln('Произведение: ', prod); // вывод произведения
end.

3. Программа для вычисления периметра и площади прямоугольника по заданным сторонам:

lessCopy code
program rectangle;
var
  a, b, perimeter, area: integer; // объявление переменных
begin
  writeln('Введите длину и ширину прямоугольника: ');
  readln(a, b); // ввод длины и ширины
  perimeter := 2 * (a + b); // вычисление периметра
  area := a * b; // вычисление площади
  writeln('Периметр: ', perimeter); // вывод периметра
  writeln('Площадь: ', area); // вывод площади
end.

4. Программа для вычисления возраста в днях, часах, минутах и секундах:

goCopy code
program age;
var
  age, days, hours, minutes, seconds: integer; // объявление переменных
begin
  writeln('Введите возраст в годах: ');
  readln(age); // ввод возраста
  days := age * 365; // вычисление количества дней
  hours := days * 24; // вычисление количества часов