1) найдите сумму и произведение целых чисел больших 13 и меньших 100 и кратных 4. решите на языке pascal
atitova644
1
20.03.2019 05:20
2
Другие вопросы по теме Информатика
MrTraserS
09.04.2019 10:53
maynovetskaya0
09.04.2019 10:44
svetlana81kolesnik
16.09.2019 10:36
МаксимГерасименкоВла
16.09.2019 10:41
Rodofatos
16.09.2019 10:42
Wowan07
16.09.2019 12:10
malkevich12
16.09.2019 10:46
qwerty882
16.09.2019 10:49
Sasha190507
21.04.2020 12:05
Популярные вопросы
- Скажіть будь ласка, які є сусіди Україні...
1 - Нарисуй персонажа из популярного мема Amongus . ответь достоин ли уважения этот...
2 - Відстань між пунктами А і Б дорівнює 168км. Товарний потяг проходить цю відстань...
3 - Автомобиль проехал 1/15 намеченного вмаршрутасколько километров проехал автомобиль...
3 - Зробити повний синтаксичний розбір речення. У нашого класу буде контрольна з...
1 - Спросить вираз 1) a² +(3a -b)²;2) (4x+5)²- 40x;3) 50a² -(7a-1)²;4)c² +36-(c-6)²;5)...
3 - Напишите уравнения реакций, с которых можно осуществить следующие превращения:...
1 - причины и последствия реформ Марии Терезии и Иосифа2 8 класс...
1 - Бальмонт Хочу быть дерзким анализ произведения с метафорами и эпитетами ОЧЕНЬ...
3 - Мы вчетвером на 2-х мотоцикл из за средних поле что делать? ночью ...
2
Program Pr1;
uses crt;
var i,c,t:integer;
begin
clrscr;
c:=0;
t:=1;
i:=14;
while i<100 do if i mod 4=0 then begin
c:=c+i;
t:=t*i;
end;
writeln('+ ',c);
writeln('* ',t);
end.