Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
германия
испания
португалия
франция
чехия
60,111100,3c,74
var
i,n: integer;
a: array [1..100] of integer;
begin
readln(n);
for i: =1 to n do
if i mod 2 =0 then a[i]: =i-3
else a[i]: =i+3;
writeln(a[i]);
end;
end.
var a,b,c,s,p: real;
read(a,b,c);
p: =(a+b+c)/2;
s: =sqrt(p*(p-a)*(p-b)*(p-c));
write(s: 0: 2);
вроде так
Популярные вопросы