Войти Регистрация Спроси ai-bota

Написать программу в турбо паскаль. найти сумму всех n-значных чисел (1 ≤ n ≤ 4)

Ответ:

Дженнифер878

07.07.2020 12:00

Var n,i:integer;
begin
n:=0;
for i:=1 to 4 do
n:=n+i;
writeln(n);
readln;
end.

0,0(0 оценок)

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

egorfeklistov

06.06.2020 02:49

1) составить программу находящую сумму целых чисел от 4 до 12 2) составить программу находящую сумму чётных чисел от 111 до 200 3) составить программу находящую произведение нечётных...

nik1005TV

29.07.2020 03:19

Какой объем информации передается за 5 мин. 13 сек., при скорости передачи информации 8кбит/с...

SanyaLuckYouTube

29.07.2020 03:19

Скакой скоростью осуществляется передача информации объемом 1715 кб, если передача длится 5 мин.43 сек.?...

alina56737

29.07.2020 03:19

Некоторое десятичное число x перевели в системы счисления с основаниями 16, 8, 4, 2. часть символов при записи была утеряна. позиции утерянных символов обозначены символом “*”: x=...

Sofia8787

29.07.2020 03:19

Сколько времени потребуется, чтобы передать информацию объемом 2,5 кб, при скорости передачи информации 256 бит/с...

000Ангел000

03.04.2021 17:25

Крассворд: обьекты и их призноки 1.определённое сочетание всех или некоторых своиств некоторого обьекта(9 букв) 2.определяется совокупностью действий,которые могут выполняться над...

chitaevtimur134

03.04.2021 17:25

Какие достоинства и недостатки имеют аналоговые и цифровые носители информации?...

nikitin021

03.04.2021 17:25

Сделайте сиквейн слов система , компьютер , информация ....

drmarinda

24.05.2020 01:32

Дан текстовой файл содержащий фамилии и оценки за по информатике. количество учеников неизвестно. вычислить средний . иванов 4 сидоров 5 петров 2 харламов 3 захаров 5...

aarseni2006

22.12.2020 03:22

Почему не работает программа по нахождению полиндрома через массив? ? не понимаю? ? const n=5; var a: array[1..n] of char; i,c: integer; begin for i: =1 to n do read (a[i]) ; readln;...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку