№12. дано натуральное число м. написать программу для вычисления суммы вида 123+127+131+ сумма не станет больше м.
127
416
Ответы на вопрос:
Если начальное значение суммы не указано в условии, то присвойте сумме ноль перед операцией. s: =0; while s => m do s: =s+3; (после do лучше писать с новой строки, у меня почему-то все в одну лепит)
var S,p,a,b,c: real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь равна ',S);
end.
Популярно: Информатика
-
nastea337711.10.2020 22:36
-
Gonsh124008.08.2021 08:13
-
solokha2401.11.2020 22:38
-
NarGog17.07.2021 04:48
-
lerikonusheva05.04.2021 22:46
-
mako01111115.05.2020 23:29
-
ITyanI09.05.2023 02:39
-
пончик12345679812.06.2020 19:40
-
AnnaM44809.05.2022 09:32
-
VadimOMG07.04.2021 07:49