Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
SchoolZnatok
14.05.2022 08:54 •
Информатика
Отношение четных чисел к кратным 5 из промежутка -n до n напишите программу!
Показать ответ
Ответ:
AlisaKalten
05.10.2020 15:58
Program f1;
var i,n,t,y: integer;
s;real;
begin
read(n);
for i:=-n to n do begin
if i mod 2=0 then y:=i;
if i mod 5 =0 then t:=i ;
s:=y/t;
writeln(s);
end.
0,0
(0 оценок)
Популярные вопросы: Информатика
odinokijcelovek
26.10.2021 22:07
Запишите на языке паскаль выражение, которое истинно, если переменная x...
настя7589
24.01.2020 17:33
Расскажите о проблеме вычисления остатка от деления и целочисленного деления на языке pascal...
Ъъъъъъъъъъъъъъъъ
01.10.2020 15:50
Ничего не понимаю : с фоточка прилагается решить нужно в excel...
Vitaly536218
17.05.2023 11:51
Стандартные функции: модуль, квадрат числа...
Кристинаuy
17.03.2022 23:12
:d 1) отметьте пропущенное слово : формула для вычисления площади прямоугольника является примером модели 1.образной 2.знаковой 3.смешанной 4.натурной 2) отметьте пропущенное слово...
ange4
19.02.2023 13:55
A) S:=0;for i:=1 to 5 do S:=S+a[i];S=?Б) S:=0;for i:=1 to 9 do if i mod 3=0 then S:=S+a[i];S=?B) S:=0;for i:=1 to 9 do if a[i] 2 then S=S+a[i];S=?Г) S:=0;for i=1 to 5 do if (a[i]...
dias2050
15.07.2021 15:08
Выполните вычисления по блок схеме для чисел Х=33,42,75...
МикаэльБостон
28.03.2021 04:09
Информатика, 6 класс. Написать программу рисования индекса г. Самары Программа-Кумир Вариант-Чертёжник...
Elsh777
04.01.2023 01:34
Оператор Write ( ball ); выводит на экран ballWrite ( ball );Write ( )computer ball ...
ulpashkova
07.06.2020 02:48
Номер 1 стр 5 Из чисел 124, 131, 146, 150, 175, 200, 208, 215, 260 выпишите чис-ла, которые делятся на:1) 2; 2) 5; 3) 10....
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
var i,n,t,y: integer;
s;real;
begin
read(n);
for i:=-n to n do begin
if i mod 2=0 then y:=i;
if i mod 5 =0 then t:=i ;
s:=y/t;
writeln(s);
end.