Информатика

Вопрос/Задача:

Написать программу на языке паскаль. найти сумму 20 чисел введенных с клавиатуры.

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

Ответ
Ответ разместил: Гость

varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.

Ответ
Ответ разместил: Гость

как правильно пишется триугольник или треугольник?

  треугольник

Ответ
Ответ разместил: Гость

program p_1; var i, n : integer; a, s : real; b : array [1..1000] of real; begin writeln('введите число а'); readln(a); writeln('введите количество значений массива n'); readln(n); write('введите элементы массива b'); for i: =1 to n do readln(b[i]); writeln('первоначальный массив b'); for i: =1 to n do writeln(b[i]); s: =0; for i: =1 to n do if b[i] > a then s: =s+b[i]; writeln('сумма значений =', s); end.

Ответ
Ответ разместил: Камила1э

уже не помню паскаль, но сейчас, начинается вроде так

 

program suma; vara,b,c: integer; begina: =0; b: =0; readln(a,b); c: =a+b; writeln(a,'+',b,'=',c); end.

 

 

Ответ
Ответ разместил: поля875

program сhisla; vara, s, n: integer; begins: =0; for n: = 1 to 20 do begin

write (' введите число а='); read (a,); s: = s + a;

end; write ('сумма 20 чисел пользователя = ', s); end.

Похожие вопросы

Вопросов на сайте: