var
a,b,c:integer; //заводим 3 переменные
begin
{ Делаем запрос на ввод 3 чисел с клавиатуры,
и записываем их по порядку в
перечисленные переменные }
readln(a,b,c);
a:=a*2; //Увеличели в два раза
b:=b-3; //Уменьшили на 3
c:=c*c; //возвели в квадрат
a:=a+b+c; // Нашли сумму 3 чисел
writeln (a); // вывод суммы на экран
end.
// PascalABC.NET
var (a, b, c) := ReadReal3('Введи три числа:');
(a, b, c) := (2 * a, b - 3, c * c);
Print(a + b + c)
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var
a,b,c:integer; //заводим 3 переменные
begin
{ Делаем запрос на ввод 3 чисел с клавиатуры,
и записываем их по порядку в
перечисленные переменные }
readln(a,b,c);
a:=a*2; //Увеличели в два раза
b:=b-3; //Уменьшили на 3
c:=c*c; //возвели в квадрат
a:=a+b+c; // Нашли сумму 3 чисел
writeln (a); // вывод суммы на экран
end.
// PascalABC.NET
begin
var (a, b, c) := ReadReal3('Введи три числа:');
(a, b, c) := (2 * a, b - 3, c * c);
Print(a + b + c)
end.