*****************C case*****************
Var
a:integer;
Begin 
 Write('Введите число от 5 до 9: '); readln(a); 
 case a of 
5:writeln('Вы ввели число "пять"');
 6:writeln('Вы ввели число "шесть"');
7:writeln('Вы ввели число "семь"');
8:writeln('Вы ввели число "восемь"');
9:writeln('Вы ввели число "девять"')
end;

readln
End.

*****************С if*****************
Var
a:integer;
Begin
Write('Введите число от 5 до 9: '); readln(a);
if a=5 then writeln('Вы ввели число "пять"');
if a=6 then writeln('Вы ввели число "шесть"');
if a=7 then writeln('Вы ввели число "семь"');
if a=8 then writeln('Вы ввели число "восемь"');
if a=9 then writeln('Вы ввели число "девять"');

readln
End.

0 0

4 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА РЕШИТЬ ЗАДАЧУ: На руку знатной дамы претендовали два рыцаря. Чтобы выбрать самого достойного, дама предложил

fsfdgr

Решили поменяться лошадьми Я стараюсь финишировать первым на чужой лошади, тогда я выиграю так рыцаря на моей лошади обогнал

0 0

4 года назад

Юля написала письмо. В письме 64 строки, каждая из которых содержит 256 символов. При составлении письма, Юля использовала алфав

Olga Viktorovna [133]

Каждый символ занимает 16 бит.
16 * 64 * 256 = 264144 бит = 32768 байт = 32 кбайт

0 0

4 года назад