В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
OOONIMOOO
OOONIMOOO
25.05.2022 22:24 •  Информатика

Программа ,вывести на экран таблицу пифагора и вторая программа вывести на экран все нечетные числа от -50 до 50 через знак плюс

Показать ответ
Ответ:
Babikovandrei48
Babikovandrei48
27.07.2020 15:59
Первая:

Var
A,B:byte;

Begin
A:=9;
B:=9;
For A:=1 to A do
Begin
For B:=1 to B do
Write(A,'*',B,' = ',(A*B):2,' ');
WriteLn
End
End.

Вторая:

Var i:integer;
Begin
For i:= -50 to 50 do
if i mod 2 =1 then Write('+',i)
else if i mod 2 = -1 then Write(i);
WriteLn('=',0)
End.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота