Регистрация
denvolk00
21.06.2020 22:10
Информатика
Есть ответ 👍

Алг нач цел s, k s: =0 нц для k от 3 до 10 s: =s+13 кц вывод s кон

150
404
Посмотреть ответы 2

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

софи157
софи157
4,7(57 оценок)
Program begin var s,k: integer; s: =0; while ((k< 11) and (k> 2)) do begin s: =s+13; end; writeln(s); end.
Владикноум
Владикноум
4,5(74 оценок)

1)

program pr1; uses crt; var x,i,n: integer; beginclrscr; readln(n); x: =1; for i: =1 to n do x: =x*i; writeln(x); end.

2)

program pr1; uses crt; var x,y: real; beginclrscr; readln(x,y); writeln(exp(y*ln(; end.

3)

program pr1; uses crt; var mas: array[byte] of integer; i,n,c,b: integer; begin clrscr; writeln('vvedite kol chisel'); readln(n); c: =0; b: =1; for i: =1 to n do begin writeln('vvedite ',i,' chislo '); readln(mas[i]); end; for i: =1 to n do if mas[i]< 0 then c: =c+1 else b: =b*mas[i]; writeln('chislo otrizateln. ',c,' proizvedenie polojiteln ',b); end.

4)

program pr1; uses crt; var x,y,i: integer; begin clrscr; readln(x); y: =0; for i: =100 to 999 do if i> x then begin writeln(i); y: =y+1; end; writeln('vsego ',y); end.

 

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