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

Pascal найти сумму всех двухзначных чисел, которые кратны трём.

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

barash8

19.04.2021 18:50

Составить синквейн со словом файл и проводник. заранее огромное...

Darhanfan

02.11.2021 22:56

Маңызы қандай? Баға бер. Тапсырма1-тапсырма. Суреттегі кейіпкерлер қоршаған ортадан қандайақпарат алады? Ол үшін ақпаратты қабылдаудың қандай түрлерінқолданады?5-cypem...

KitKat321456

16.03.2022 00:15

Нарисовать n концентрических окружностей с минимальны радиусом r и максимальным радиусом r c центром с координатами x и y. n, r, r, x, y вводятся с клавиатуры. pascal abc...

100Виктория100

15.01.2022 13:32

1. заданы три круга, радиусы которых известны. найти площадь каждого круга...

Doktor77

22.05.2020 05:24

Как посчитать количество шагов на отрезке [-pi; pi] с шагом pi\8. составить программу на языке паскаль...

Шамиль1233

14.09.2021 15:31

Вмассиве все положительные элементы увеличить в 2 раза, а все отрицательные заменить на 7. вывести на экран исходный и преобразованный массивы. , нужно т.т...

azalhanovahalid

14.09.2022 23:44

Дано натуральное число n. написать программу, выводящую первых n нечетных чисел 1,3,5 (через while)...

masha3521

10.06.2020 06:15

Вычислить произведение четырех натур.чисел, используя только операцию сложения. (язык пр: pascal) 1) написать программу (обычную) 2) написать программу с использованием процедуры...

Тембулат14

08.08.2022 10:02

Как переводить число в 16-ичную систему...

Кириииил

08.08.2022 10:02

Вчем const n=20; type vector= array[1..n] of integer; вычислить для вектора x: произведение всех положительных элементов массива, которые кратны 17 я сделала так , но все...

Ответ:

Arina17122002

26.06.2020 23:04

Uses crt;
var ,c,k:integer;
begin c:=0;
for k:=10 to 99 do
if (k mod 3=0) then c:=c+k;
write(c);
end.

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

Ответ:

Selbrit

26.06.2020 23:04

Uses crt;
var i,sum:integer;
begin
sum:=0;
for i:=10 to 99 do
if i mod 3=0 then sum:=sum+i;
writeln(sum);
end.

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

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

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