Определить результат выполнения программы: var i, sum: integer; begin sum: =0; i: =1; while i =3 do - id825653720230411 от 2003Саша 11.04.2023 00:13

Question

Информатика: Определить результат выполнения программы: var i, sum: integer; begin sum: =0; i: =1; while i =3 do begin sum: =sum+i; i: =i+1; end; writeln(sum); end.

2003Саша · Accepted Answer

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
function FS(a,b:real):=0.5*a*b;
begin
var a,b:real;
Write('Катеты первого треугольника: '); Read(a,b);
var S1:=FS(a,b);
Write('Катеты второго треугольника: '); Read(a,b);
var S2:=FS(a,b);
if S1>S2 then Writeln('Площадь первого треугольника больше')
else
if S1<S2 then Writeln('Площадь второго треугольника больше')
else Writeln('Площади треугольников равны')
end.

Тестовое решение
Катеты первого треугольника: 4.18 6
Катеты второго треугольника: 5.4 3.9
Площадь первого треугольника больше

Определить результат выполнения программы: var i, sum: integer; begin sum: =0; i: =1; while i< =3 do begin sum: =sum+i; i: =i+1; end; writeln(sum); end.

MOGZ ответил