tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
For 11 pascal. Программа паскаль
For 11 pascal. Программа паскаль
akbotawka02
3 29.04.2020 00:56
1
Ответы
Bohdanka999
14.10.2020 01:48
program For11;
var
N, Rez,i :Integer;
begin
Write('Введите N: ');
Readln(N);
rez:=0;
For i:=0 to N do Rez:=Rez+sqr(N+i);
Writeln(Rez);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
rih904507
01.11.2020 12:33
1. Два текста содержат одинаковое количество символов. Количество информации в первом тексте в 3 раза больше, чем во втором. Сколько символов содержат алфавиты, с которых записаны...
nastyacrew
22.10.2020 12:00
составить блок-схему и написать программу : сформировать массив из 10 чисел все положительные числа переписать в другой массив...
CailiVinchisiter
08.03.2019 13:10
Паскаль (9 класс! ) напишите программу вычисления расстояния между двумя точками плоскости...
skirtachmaksim
08.03.2019 13:10
Сделайте ! напишите программу вычисления расстояния между двумя точками плоскости ! это ! 9 класс!...
natalizotowa198
08.03.2019 13:10
Даны 3 числа a,b,c. нужно если треугольник прямоугольный найти его площадь, если он не прямоугольный то периметр. ну мы в классе решали типа если а+б с и a+c b и c+b 0 то вывод фигура...
poliaaaaaa
23.09.2019 03:40
Посоветуйте сайт или книгу для изучения паскаль...
yanamalykh
23.09.2019 03:40
Определите значение переменной c после выполнения следующего фрагмента программы. a : = 40; b : = 10; b : = - a / 2 * b; if a b then c : = b - a else c : = a - 2 * b; 440 456 500 508...
CockDown
23.09.2019 03:40
Коля написал программу: var x: integer; begin readln(x); x : = x div 100 mod 100 div 10; writeln(x); end. определите, что будет напечатано при разных значениях x. x = 12345 x = 22...
Богдансупе23
23.09.2019 03:40
Определите значение переменной i после выполнения следующего фрагмента программы: i : = 0; while i 1000 do i : = i + 3;...
TreYsYer
28.09.2019 12:40
На языке python. дано натуральное число n. если оно делится на 4, вывести на экран ответ n=4k (где k – соответствующее частное); если остаток от деления на 4 равен 1-n= 4k+1; если...
Популярные вопросы
Do the people in Wales speak only English...
1
Одини розташовані,а) правіше точки А (25);б) лівіше точки (118)в) правілше точки...
2
Составьте КРАТКИЙ рассказ о прохождении пищи через пищеварительный тракт (письменно)...
3
мне : составить 2-3 предложение со словом *зашел*. ...
3
Решите все примеры ля смотри на эти...
1
Примерный пошаговый план составления отзыва (памятка для написания) 1. Автор2. Название...
2
1. Його ім я означає «Біла Слива», а друзі про нього говорили, Літературна вікторинащо...
2
Сторони трикутника дорівнюють 2 см, 7 см, 8 см. Знайти кути трикутника. Округлити...
1
12 м 36 см - 9 дм 8 см = сколько см? 18 тон 9 ц 36 кг - 738 кг = сколько кг? ответьте...
3
31. Залишите общую формулу целых чисел, которые при делении на 5 дакт остаток 3...
2
var
N, Rez,i :Integer;
begin
Write('Введите N: ');
Readln(N);
rez:=0;
For i:=0 to N do Rez:=Rez+sqr(N+i);
Writeln(Rez);
end.