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

Вычислите информационный объём.Запишите решения вычисления объёма информации
СМОТРЕТЬ НА ФОТО


Вычислите информационный объём.Запишите решения вычисления объёма информации СМОТРЕТЬ НА ФОТО

Показать ответ
Ответ:
nata12377
nata12377
05.09.2022 07:18

 думаю, что Россия великая страна. Я думаю так, потому что я изучаю историю и знаю, что Россия во все времена оказывала влияние на мировое развитие. Она одна из великих держав мира.

В Росссии богатая культура и наследие. Именно в России самые лучшие ученые и мастера искусства. Книги Пушкина и Достоевского переведенына десятки языков.

История России богата тайнами. И не всегда мы видели только героев. Есть немало примеров отрицательных. Каждый ученик знает времена Ивана Грозного, Пугачева и Распутина.

В России есть немало больших городов. Это Москва, наша столица, Санкт Петербург, бывшая столица, Екатеринбург и другие.В Москве много исторических памятников. Но больше всего их в Санкт -Петербурге. Россияне называют Санкт -Петербург и Царское Село "музеем под открытым небом".

Россия богатая страна. Здесь много полезных ископаемых.

Я горжусь своей страной.

0,0(0 оценок)
Ответ:
coffeepro80
coffeepro80
04.10.2020 23:33

Ох и намудрил с этой программой))

 

program school; 
var a:char;
b:real;
c,d:boolean;
begin
Writeln ('Введите пол (м или ж) и количество учеников');

repeat
write ('Пол - '); readln (a);
if upcase(a)='Ж' then c:=true;
if upcase(a)='М' then c:=true;
if c=true then write else
writeln ('Вы должны ввести использовать символы "м" или "ж"');
until c=true;

repeat
write ('Количество учеников данного пола от 5 до 30 - '); readln (b);
if b<5 then d:=false else d:=true;
if b>30 then d:=false else d:=true;
if d=true then
begin
if upcase(a)='Ж' then writeln ('В классе сейчас ',b,' девоч.');
if upcase(a)='М' then writeln ('В классе сейчас ',b,' мальч.');
end;
until d=true;
end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота