какая фигура получится если выпал такой алгоритм- начало цикла повторить 10 раз( вперёд 5 вправо 60) конец цикла, расстояние в см, поворот в градусах
Program j7;var a: array of char; n: integer; i: integer; cnt: integer;begin WriteLn('Введите размер массива: '); ReadLn(n); SetLength(a,n); for i:= 0 to n-1 do begin Write('Символ № ',i+1,' '); ReadLn(a[i]); //Заполнение массива end; for i:= 0 to n-1 do begin Write(a[i]+' '); //Вывод массива (по желанию) end; WriteLn(); cnt:=0; for i:= 0 to n-1 do begin if a[i] in ['a'..'z'] then begin Inc(cnt); //подсчет маленьких латинских букв end; end; WriteLn('Количество маленьких латинских букв: ',cnt); Write('Нажмите клавишу ENTER для выхода...'); ReadLn();end.
Uses Crt; const n=10; var a,b:array[1..n] of integer; i,k,t:integer; begin ClrScr; Randomize; for i:=1 to n do begin a[i]:=Random(50); Write(a[i],' ') end; Writeln; for i:=1 to n do begin b[i]:=Random(50); Write(b[i],' ') end; Writeln; Write('k t='); Read(k,t); for i:=1 to n do begin if a[i]>t then a[i]:=a[i]+4; Write(a[i],' ') end; Writeln; for i:=1 to n do begin if b[i]>10*k then b[i]:=b[i]+k; Write(b[i],' ') end; Readkey end.
75 см квадрат надеюсь правильно лайки паже