Регистрация
annamajoriva953
17.07.2021 23:57
Информатика
Есть ответ 👍

Как составить по первой букве имени программу?

132
482
Посмотреть ответы 3

Ответы на вопрос:

temirhanarmy
temirhanarmy
4,7(55 оценок)

Какую программу?????

Natashasergeu
Natashasergeu
4,8(17 оценок)

ответ:Для исполнителя РОБОТ не знаю, а в PascalABC:

Program bukva;

uses GraphABC;

Begin

Line (10,10,10,400);

Line (10,200,150,10);

Line (10,200,150,400);

End.

Объяснение:

маря39
маря39
4,5(45 оценок)
1) program n1; const n=5; var a: array [1..n] of integer; i: integer; begin for i: =1 to n do readln(a[i]); for i: =1 to n do if( i mod 2=0) then a[i]: =0 else a[i]: =1; for i: =1 to n do writeln(a[i]); end. 2) program n2; const n=25; var a: array [1..n] of integer; i,k: integer; begin randomize; for i: =1 to n do begin a[i]: =random(5)+1; if a[i]< 3 then k: =k+1; end; writeln(k); end. 3) program n3; const n=5; var a: array [1..n] of integer; i,s: integer; begin s: =0; for i: =1 to n do readln(a[i]); for i: =1 to n do if (a[i]< 0) then s: =s+a[i]; writeln(s); end.

Популярно: Информатика