tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать программу, которая
Написать программу, которая вводит натуральное число n и считает сумму чисел от 1 до n
tattysg
3 26.08.2019 06:50
0
Ответы
Диа200426
05.10.2020 20:30
Var
n:integer;
S:real;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
S:=S+n;
Write('S = ',S)
End.
ПОКАЗАТЬ ОТВЕТЫ
kostaKOSTAkosta
05.10.2020 20:30
Program sum_n;
var
n, i, s: integer;
begin
write('n = ');
readln(n);
s := 0;
for i := 1 to n do
s := s + i;
writeln('s = ', s);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
vfedkina35
05.05.2021 07:20
Назовите 2 общие черты, и по 2 особенности во внутренней и внешней политики ханов Есима и Тауке. ОТВЕТ ЗАПИШИТЕ В ФОРМЕ: Общие черты в деятельности ханов: 1) 2)...
DashaSid
09.09.2019 21:50
Мама дала андрею s грн. на покупку n1 тетрадей в клеточку стоимостью v1 грн. за одну тетрадь и n2 ручек стоимостью v2 грн за одну ручку. на остаток денег андрей...
WrestlerTeam
09.09.2019 21:50
Вопрос на тему пользователь начал работу в каталоге работа 1 пользователь начал работу в каталоге работа 1. сначала он поднялся на один уровень вверх, затем спустился...
WirexiaEnderman
09.09.2019 21:50
Сколько школьных учебников ёмкостью 350 килобайта можно разместить на 4гигобайтов флешки большое от еденорожки...
fbnjvtlchenko
22.06.2019 22:40
Написать программу на паскаль. ввести число и вывести строку – описание этого числа «отрицательные число», «положительное число», «нулевое число»....
5434689
22.06.2019 22:40
Сообщение если оно выражено на языке, доступном для получателя...
аля722
22.06.2019 22:40
Var a,b,c: array [1..20] of integer; n,k,l,i: integer; begin writeln( |||входные данные ||| ); write( введите количество элементов: ); readln(n); writeln( массив...
Auebandit1337
22.06.2019 22:40
А=d в шестнадцатиричной b=237 в восьмиричной.какое из чисел записанных в двоичной системе исчисления удовлетворяет неравенству a c b 1)1001 2)10011110 3)10011111...
ksuvladyckina16
22.06.2019 22:40
Продолжи ряд десятичных чисел 11.13.15.17. 22.44.66. 91.81.71. 1.2.4.8...
SeamCard
22.06.2019 22:40
Написать программу, которая по последней цифре числа позволяет определить последнюю цифру его квадрата....
Популярные вопросы
А)11/12- у=11/24. б)5,86m+1,4m=76,23...
2
Напишите сочинение на тему для чего нужны фразиологизмы!...
2
Нужно , написать, этапы действия, кто чем руководил, где происходили...
2
10,79: 6,4*10,7-0,54*3,15: 7,9=? хелп...
2
Листовая мозаика максимальному использованию растением 1)света...
1
Найдите периметр треугольника авс, если ав=3 2/5 м, вс=2 3/4...
2
19x+3×(5+6x)если x=4 найди значения выражения...
2
Взоомагазине было 10 волнистых попугайчика а канареек на 4 больше...
3
Правила травматизма при занятиях гимнастикой...
2
На склад поступила продукция трех фабрик. объемы продукции первой,...
2
n:integer;
S:real;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
S:=S+n;
Write('S = ',S)
End.
var
n, i, s: integer;
begin
write('n = ');
readln(n);
s := 0;
for i := 1 to n do
s := s + i;
writeln('s = ', s);
end.