Var a,b,c,p:integer;
s,p1:real;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln(c);
readln(c);
p:=a+b+c;
p1:=(a+b+c)/2;
s:=sqrt(p1*(p1-a)*(p1-b)*(p1-c));
writeln('perimetr=',p,' plosciadi=',s);
readln;
end.

0 0

4 года назад

Дан одновременный одночисленный масив вывести масив на экран строку элементы стоящие на четных местах заменить нулем вывести обр

Annaegorova

Program chik;
var a:array[1..1000]of integer;
var n,i:integer;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to n do
begin
if (i mod 2=0)then a[i]:=0;
end;
for i:=1 to n do
begin
write(a[i],' ');
end;
end.

0 0

3 года назад

написать программу в паскале которая вставит между буквами введенного слова пробел

Luzzu [728]

var
    s, s_new: string;
    i: integer;

begin
    read(s);
    for i := 1 to length(s) do
        s_new := s_new + s[i] + ' ';
    writeln(s_new);
end.

0 0

4 года назад

Прочитать ещё 2 ответа