с Паскалем, он пишет: Program1.pas(10) : Встречено writeln , а ожидалось ; Программа: program z66; var - id1483732020201011 от Fear1ess 11.10.2020 09:00

Question

Информатика: с Паскалем, он пишет: Program1.pas(10) : Встречено writeln , а ожидалось ; Программа: program z66; var k: integer; a, S: real; BEGIN writeln ( Подсчёт заработка продавца ); write ( Введите сумму, которую получает продавец с продажи первый 50ти газет: ); readln (a); write ( Введите количество проданных газет: ); readln (k); S := 50*a + (k-50)*1.2*a writeln ( Продавец получит , S , рублей ); END

Fear1ess · Accepted Answer

Const m=4; n=15; var   i,j,j0: integer;   a:array[1..m,1..n] of integer;   jExit,iExit:Boolean; begin   Randomize;   for i:=1 to m do begin     writeln;     for j:=1 to n do begin       a[i,j]:=random(2);       write(a[i,j]:2)       end     end;   writeln;   j:=0; jExit:=false;   repeat     j:=j+1; i:=1; iExit:=false;     if a[i,j]=0 then begin       repeat         i:=i+1;         if a[i,j] 0 then iExit:=true       until iExit or (i=m);       if i=m then jExit:=true       end     until jExit or...

MOGZ ответил