tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Склавиатуры задаётся 3 числа.
Склавиатуры задаётся 3 числа. найти сумму кратных двум решить паскалем. нужно
Katre678556
1 30.07.2019 05:40
2
Ответы
Staslu
19.08.2020 19:57
Var a, b, c: integer;
begin
for a:=1 to 3 do
begin
readln(b);
if b mod 2 = 0 then c:=b+c;
end;
writeln('ответ: ',c);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
lineage29201682
30.05.2020 12:48
Где скачать игры для ноутбука не с тореннта...
lululu4
29.05.2020 12:48
F=(x-sqr(x))/(1-(x/2x)) Записать формулу в Паскаль Заранее большое...
svetusik214
07.02.2021 19:35
1. Напишите программу, которая вычисляет, на какую высоту поднимается теннисный мячик, брошенный вертикально вверх с заданной скоростью, если не учитывать сопротивление...
aidaXD
07.02.2021 19:36
В каком порядке обычно записываются значения переменных в таблице истинности? Зачем это нужно?...
synnjhcx
07.02.2021 19:46
умоляю Склади блок-схеми для наступних задач:1.Сторони трикутника а, b, c. Знайди периметр трикутника. 2.Обчислення значення виразу (АХ+В)/С...
lolik334
07.02.2021 19:47
Язык: Python Напишите программу, которая будет вычислять площадь фигуры, представленной на рисунке. На вход программы подаются 4 числа: длины отрезков a, b, c и d. Все...
ttlekzhan
07.02.2021 19:47
Информатика. Мне нужно нарисовать цветок - шестиугольник в Python или Tonny. Что должно получиться прикрепляю в фото.Сфотографируйте команды как это рисовать, ничего...
coollkid
07.02.2021 19:48
Определите средний по физкультуре. ответ на этот вопрос с точностью не менее 2 знаков после запятой запишите в ячейку H5 таблицы....
генж
07.02.2021 19:51
перевести с паскаля на питон begin var s := 1 *ReadLnInteger( n = ); s.Println; repeat var r := s.Length; while s[r] = 0 do r -= 1; s[r] := 0 ; while r c= 1 ) = 0; end....
anastasiaKar01
07.02.2021 19:58
СОЗДАЙТЕ ПРОЦЕДУРУ, ПЕЧАТАЮЩУЮ НА ЭКРАНЕ СЛОВО HELLO И ПРОГРАММУ, КОТОРАЯ С ЕЕ НАПЕЧАТАЕТ СЛОВО HELLO 10 РАЗ.\ Delphi...
Популярные вопросы
Предложение со словом дикорастущий....
2
Восстановите хронологическую последовательность существования первых...
3
5. Отличить однодольные и двудольные растения можно по форме и жилкованию...
3
Шыгарма желісі бойынша ретімен орналастырындар Елін азат ету Қобыланды...
3
Как вы думаете,почему среди варварских королевств сохранилось лишь...
3
Қандай қосымша мәліметтер бар ...
1
У скільки разів і як необхідно змінити радіус колової орбіти штучного...
3
1. Определите структурные части текста (вступление, основная часть,...
3
Схема демонстрирует первичную экосистему, напишите три недостающих...
3
Как дела у вас карантин или нет но надо же не только на счет заработать...
1
begin
for a:=1 to 3 do
begin
readln(b);
if b mod 2 = 0 then c:=b+c;
end;
writeln('ответ: ',c);
end.