Задать вопрос!

Задать вопрос!

Все категории

4 года назад

6

Написать программу, которая вычисляет сумму первых n целых положительных чисел. Количество суммируемых чисел должно вводиться во

время работы программы. Написать ее с помощью цикла for..to..do..

Информатика

1 ответ:

Ganya1964 года назад

0 0

var c,a,n,i:longint;

begin

read(n);

read(a);

c:=a;

for i:=2 to n do

begin

read(a);

c:=c+a;

end;

write(c);

end.

Читайте также

Изобрази на ленте времени 766год до н.э. и 2008 год н.э. Что было раньше и на сколько?

ecillopp [7]

776год до н.э - раньше на 2784 года

2008год н.э -

0 0

4 года назад

Даны два числа a и b. Вывести на экран значения суммы и разности этих чисел. Помогите пожалуйста

РЯХИНА РЕГИНА АЛЕ...

Program n1;
var a,b: real;
begin
readln(a,b);
writeln(a+b);
write(a-b);
end.

0 0

4 года назад

Переведите число 110101 из двоичной системы счисления в десятичную систему счисления. В ответе запишите полученное число. 41. Пе

Марат Миннурпович [1]

1)53

2)2

3)3

4)57

5)54

6)102

7)121

8)108

0 0

4 года назад

Векторный рисунок 6 класс информатика

Stella94 [57]

Нужно только загрузить в Фотошоп и сделать векторизацию!

0 0

4 года назад

Помогите решить задачу по информатике на языке Паскаль. Срочно! 25 баллов

tulupoff [2]

<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>

begin
Writeln('Введите начальную скорость снаряда, расстояние до стены, высоту стены');
var (v,S,h):=ReadReal3;
var A:=ReadReal('Введите угол наклона ствола пушки');
if v<=0 then begin
    Writeln('Скорость должна быть положительной');
    Exit
    end;
if v>1000 then begin
    Writeln('Скорость слишком велика');
    Exit
    end;
if S<=0 then begin
    Writeln('Расстояние должно быть положительным');
    Exit
    end;
if h<=0 then begin
    Writeln('Высота стены должна быть положительной');
    Exit
    end;
if A<=0 then begin
    Writeln('Пушка не должна стрелять в землю');
    Exit
    end;
if A>=pi/2 then begin
    Writeln('Пушка направлена не в сторону стены');
    Exit
    end;
var L:=S*Tan(A)-9.81*S/(2*v*v*Sqr(Cos(A)));
if L>h then begin
    Writeln('Снаряд не попал в стену...');
    Exit
    end;
if L<0 then Writeln('Снаряд не попал в стену...')
else Writeln('Попал!!!')
end.

<u>Пример</u>
Введите начальную скорость снаряда, расстояние до стены, высоту стены
300 500 8.5
Введите угол наклона ствола пушки 0.2
Снаряд не попал в стену...

0 0

4 года назад