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

Миша решил что ему для открытки нужно вертикальное изображение чтобы его открытка была не такой как у друзей Он спросил какие открытки они подарят Вася сидит с Катей за одной партой он знает какие у Кати любимые цвета Вася выбрал такую открытку синюю с котиком Лену лучшая подруга Катя она знает какой указ любимое животное вот открытка Лены с медвежонком какие фильтры тебе понадобятся что бы найти голобую открытку с Медвеженком?

Показать ответ
Ответ:
dashutadashuta2007
dashutadashuta2007
11.10.2021 09:41

Объяснение:

Написать программу, которая проверяет, является ли четным введенное пользователем целое число

Решать с использованием файлов Написать программу, которая проверяет, является ли четным...

 Составить программу которая проверяет делится ли введенное вами с клавиатуры натуральное число на 6

Составить программу которая проверяет делится ли введенное вами с клавиатуры натуральное число на 6

 Написать программу, которая проверяет, делится ли на пять целое число, введенное с клавиатуры

(данные, введенные пользователем, выделены полужирным шрифтом). Добавлено через 26 секунд...

 Написать программу, которая проверяет, является ли целое число, введенное пользователем, простым

Всем привет. Не могу решить эти задания. Можете Я то я пропустил темы,теперь плохо понимаю

0,0(0 оценок)
Ответ:
kuleminaIV
kuleminaIV
30.12.2021 08:36
Var a,b,c,i,sum,cp:integer;
begin
sum:=0;
cp:=0;
Randomize;
writeln('Посчитайте сложение:');
while i<10 do
begin
a:=random(40)+10;
b:=random(60)+10;
sum:=a+b;
write('Сколько будет ',a,'+',b,'= ');
read(c);
if c=sum then begin
cp:=cp+1;
writeln('Молодец!');
end else writeln('Неправильно');
i:=i+1;
end;
writeln('Всего правильных ответов ',cp);
write('Оценка:');
if (cp<=4) then write('Очень плохо (2)') else
if (cp>=5) and (cp<=6) then write('Удовлетворительно (3)') else
if (cp>=7) and (cp<=8) then write('Хорошо (4)') else
if (cp>=9) then write('Отлично! (5)');
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота