Program prog;
uses crt;
var a:array[1..201] of integer;
    s,i: integer;

begin
clrscr;

for i:=1 to 201 do
a[i]:=i+100;

for i:=1 to 201 do begin
if a[i] mod 2=1 then begin
s:=s+a[i];
write(a[i],' ');
end;
end;

writeln;   writeln;
writeln('Сумма s = ', s);

end.

0 0

4 года назад

Составить программу по блок-схеме в Паскаль 25БАЛОВ

Маришшшшка

Program n1;
var n,i: integer;
a,y: real;
begin
readln(a,n);
y:=1;
i:=1;
while(i<=n) do
begin
y:=y*a;
i:=i+1;
end;
write(y);
end.

0 0

2 года назад

Укажи, в каком виде представлена информация в следующем примере: объявление в газете об аренде недвижимости Для ответа используй

Jijok [50]

Визуальная!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

0 0

4 года назад

Программа в Паскале. Убедительная просьба: прежде чем выкладывать решение, попробуйте её в самой программе.

isi61

В паскале попробывал все получилось)

var
a,b,c,e:integer;
begin
read(a);
c:=0;
for e:=1 to a
do
begin
read(b);
if b mod 10=3
then
c:=c+1;
end;
write(c);
end.

0 0

4 года назад