Составте блок-схему к программе: var s, ss: string; ls, lss, i, j: integer; flag: boolean; begin writeln - id1061845220210604 от donga123 04.06.2021 16:29

Question

Информатика: Составте блок-схему к программе: var s, ss: string; ls, lss, i, j: integer; flag: boolean; begin writeln ( исходная строка ); readln(s); writeln ( заданная строка ); readln(ss); i:=1; ls:=length(s); lss:=length(ss); flag:=false; while i =ls-lss+1 do begin if s[i] = ss[1] then begin flag:= true; if s[i + j] ss[j + 1] then break; if flag=true then begin write( является ); exit; end; end; i:=i+1; end; writeln ( не является ); end.

donga123 · Accepted Answer

1.
var
   n,i,m:integer;
x:real;
begin
write('Число оценок: ');
readln(n);
for i:=1 to n do
begin
writeln('Введите оценку: ');
readln(m);
x:=x+m
end;
x:=round(x/n);
writeln('Оценка за четверть ',x)
end.

2.
var
   n:integer;
a,b,c:real;
begin
write('Число a: ');
readln(a);
if a>0 then n:=1;
write('Число b: ');
readln(b);
if b>0 then n:=n+1;
write('Число c: ');
readln(c);
if c>0 then n:=n+1;
writeln('Число положительных ',n)
end.

3.
var
   n,i,s:integer;
a:array of integer;
begin
write('Размер массива: ');
readln(n);
SetLength(a, n);
for i:=0 to n-1 do
begin
a[i]:=random(-3,3);
write(a[i]:3);
if a[i]<>0 then s:=s+1
end;
writeln;
write('Ненулевых элементов: ',s);
end.

MOGZ ответил