75 БАЛЛОВ ЗА Наилучший ОТВЕТ!!!Составить программку для последующих задач:1)По номеру для
75 БАЛЛОВ ЗА Лучший ОТВЕТ!!!
Составить программку для последующих задач:
1)По номеру для недели выводит на экран расписание уроков на этот денек
2)Найти является ли данное число четным
3)Найти число,приобретенное выписыванием в оборотном порядке цифр данного целого трехзначного числа
Роман Тетерук
Паскаль?
Кисенишский
Валерий
Да
Сергей Вильданов
ABC ?
Валерий Олешенко
Pascal: turbo, free, ABC, Delphi ?)
Голяковский
Данька
Не разбираюсь в этом вообще)для школы необходимо
Любовь Межва
Знаю только то,что с Program,Var,Begin,Writeln и т.д. а turbo там либо free, ABC, Delphi без понятия
Тепегин
Евген
То есть, в школе не произнесли, на каком Паскале пишите? Хорошо..
Тагер
Кристина
Не произнесли..
1 ответ
Sofja Chabanovskaja
Var
N:integer;
Begin
WriteLn('Введите номер дня недели');
Read(N);
Case N of
1:
Begin
WriteLn('Чтение');
WriteLn('Труд');
WriteLn('Музыка');
WriteLn('Физ-ра');
End;
2:
Begin
WriteLn('Изо');
WriteLn('Русский');
WriteLn('Математика');
WriteLn('Окружающий мир');
End;
3:
Begin
WriteLn('Геометрия');
WriteLn('Краеведенье');
WriteLn('География');
WriteLn('МХК');
End;
4:
Begin
WriteLn('ОБЖ');
WriteLn('Информатика и ИКТ');
WriteLn('Физика');
WriteLn('Химия');
End;
5:
Begin
WriteLn('Биология');
WriteLn('История');
WriteLn('Обществознание');
WriteLn('Алгебра');
End;
6:
Begin
WriteLn('----------');
WriteLn('Литература');
WriteLn('Черчение');
End;
7:
Begin
WriteLn('Воскресенье!!!');
End;
End;
End.
Var
A:integer;
Begin
Write('A = ');ReadLn(A);
if A mod 2 = 0 then WriteLn(A,' - чётное число')
else WriteLn(A,' - нечётное число')
End.
Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn(A mod 10,(A div 10) mod 10,A div 100);
End.
N:integer;
Begin
WriteLn('Введите номер дня недели');
Read(N);
Case N of
1:
Begin
WriteLn('Чтение');
WriteLn('Труд');
WriteLn('Музыка');
WriteLn('Физ-ра');
End;
2:
Begin
WriteLn('Изо');
WriteLn('Русский');
WriteLn('Математика');
WriteLn('Окружающий мир');
End;
3:
Begin
WriteLn('Геометрия');
WriteLn('Краеведенье');
WriteLn('География');
WriteLn('МХК');
End;
4:
Begin
WriteLn('ОБЖ');
WriteLn('Информатика и ИКТ');
WriteLn('Физика');
WriteLn('Химия');
End;
5:
Begin
WriteLn('Биология');
WriteLn('История');
WriteLn('Обществознание');
WriteLn('Алгебра');
End;
6:
Begin
WriteLn('----------');
WriteLn('Литература');
WriteLn('Черчение');
End;
7:
Begin
WriteLn('Воскресенье!!!');
End;
End;
End.
Var
A:integer;
Begin
Write('A = ');ReadLn(A);
if A mod 2 = 0 then WriteLn(A,' - чётное число')
else WriteLn(A,' - нечётное число')
End.
Var
A:integer;
Begin
WriteLn('Введите трёхзначное число');
ReadLn(A);
WriteLn(A mod 10,(A div 10) mod 10,A div 100);
End.
Олежка Сочнев
Спасибо громадное!)
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Сколько стоит коктейль молочный? Точную цену надо?
Математика.
Составить рассказ Из чего складывался культ монарха помазанника Божьего?
История.
Облако тегов