tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Подсчитать сумму всех
Подсчитать сумму всех четных чисел от 300 до 400.(паскаль) вывести на экран все трехзначные числа,кратные
proadidas90
3 25.07.2019 14:10
1
Ответы
nastyalobzova1
18.04.2020 11:48
// Задание №1
var
a,s: integer;
begin
a:=300;
repeat
s:=s+a;
a:=a+2;
until a>400;
writeln('s = ', s)
end.
// Задание №2
var
a: integer;
begin
a:=100;
repeat
if a mod 8 = 0 then write(a:4);
a:=a+1;
until a>999;
end.
ПОКАЗАТЬ ОТВЕТЫ
dumbschoolkid
18.04.2020 11:48
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
Write(Range(300,400,2).Sum)
end.
Результат выполнения программы:
17850
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
Range(104,999,8).Print
end.
Результат выполнения программы:
104 112 120 128 136 144 152 160 168 176 184 192 200 208 216 224 232 240 248 256 264 272 280 288 296 304 312 320 328 336 344 352 360 368 376 384 392 400 408 416 424 432 440 448 456 464 472 480 488 496 504 512 520 528 536 544 552 560 568 576 584 592 600 608 616 624 632 640 648 656 664 672 680 688 696 704 712 720 728 736 744 752 760 768 776 784 792 800 808 816 824 832 840 848 856 864 872 880 888 896 904 912 920 928 936 944 952 960 968 976 984 992
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
anaw81
04.10.2019 22:01
Сколько едениц(нулей) в двоичной записи числа 95....
evstifeevod
04.10.2019 22:01
20 при интернет-соединении с максимальной скоростью передачи данных 204 800 бит/с аудиофайл размером 3600 кбайи будет в лучшем случае передаваться а) 5 мин б) больше...
ivanovaizl
04.10.2019 22:02
Напишите одну программу (паскаль) с поиском наибольшего и наименьшего элемента одного массива, а также нахождения суммы этих элементов...
yulyaartemowa20
04.10.2019 22:02
25 ! c# 1) ввести двузначное число. определить сумму его цифр. 2) ввести трехзначное число. определить большую и меньшую из его цифр....
иляяя1яяя
16.04.2021 18:58
1. Выполнить задания по системам счисления. Переведите: 11011^2 + (1×2^8+1×2^6+1×2^4+1×2^2+1×2^0) [] X^10...
agellertova
16.04.2021 18:58
Как убрать черную рамку внизу на мониторе? Монитор: hp 24f ...
милка578
16.04.2021 19:00
Помни что информацию размещенную в интернете может прочитать любой человек, почему?...
Черныйангел01
16.04.2021 19:02
Дана прямоугольная матрица. Найти количество положительных элементов матрицы. Организовать ввод-вывод элементов матрицы. На экран выводить исходную матрицу и количество...
dimaborysyk99
29.05.2019 21:40
Как выделить весь столбец или строку электронной таблицы?...
Ксюшка3215
29.05.2019 21:40
Як виділити весь стовпчик або рядок електронної таблиці?...
Популярные вопросы
Оны оқы. Шыққан мақалды жаз. 40. Бос торкөзге әріптерді сағаттағы...
2
Какой общей темой объединены рассказы «Прозрение» и «Первый вагон»....
1
Запиши объем информации фразы, расположенной ниже:Я учусь в 7 классе....
1
3. Какое количество теплоты выделится при кристаллизации и ох- лаждении...
2
Изучи Параграф 12. Прочитать, и понять. Рисунки 18 -19 рассмотреть...
2
НИЕ Реши задачу, построив дерево возможнос-тей.Для детской комнаты...
3
География 8классБЖБТапсыру ...
2
Ребята не забирать балы у меня сор решить если надо в следующем...
2
Қазанның он төрті Сынып жұмысыҚасқыр мен тиін5-тапсырма. 58-бет....
3
Мужчина с резус-положительной кровью второй группы, гомозиготный...
3
var
a,s: integer;
begin
a:=300;
repeat
s:=s+a;
a:=a+2;
until a>400;
writeln('s = ', s)
end.
// Задание №2
var
a: integer;
begin
a:=100;
repeat
if a mod 8 = 0 then write(a:4);
a:=a+1;
until a>999;
end.
begin
Write(Range(300,400,2).Sum)
end.
Результат выполнения программы:
17850
// PascalABC.NET 3.1, сборка 1214 от 09.04.2016
begin
Range(104,999,8).Print
end.
Результат выполнения программы:
104 112 120 128 136 144 152 160 168 176 184 192 200 208 216 224 232 240 248 256 264 272 280 288 296 304 312 320 328 336 344 352 360 368 376 384 392 400 408 416 424 432 440 448 456 464 472 480 488 496 504 512 520 528 536 544 552 560 568 576 584 592 600 608 616 624 632 640 648 656 664 672 680 688 696 704 712 720 728 736 744 752 760 768 776 784 792 800 808 816 824 832 840 848 856 864 872 880 888 896 904 912 920 928 936 944 952 960 968 976 984 992