Запись на доске мелом Посмотреть на доску Числовая, текстовая
<span>Фотография Рассмотреть фотографию Графическая</span>
<span>Дискета Вставить в дисковод и открыть Текстовая, графическая, звуковая</span>
(2) 101111000
(8) 570
(16) 178
Можно ещё использовать оператор выбора case
Program pr;
uses crt;
Var k:integer;
Begin
Writeln('Введите k');
readln(k);
if (k>=1) and (k<=5) then
Begin
case k of
1: Writeln('Плохо');
2: Writeln('Неудовлетворительно');
3: Writeln('удовлетворительно');
4: Writeln('Хорошо');
5: Writeln('Отлично');
end;
end
else Writeln('Ошибка');
readln;
end.
const N = 20;
var a: array [1..N] of integer;
i, k, sum, s: integer;
begin
for i := 1 to N do
begin
a[i] := random(11); //заполняем
sum := sum + a[i]; //Сумма всех эл-тов
end;
for i := 1 to N do
write(a[i], ' '); //Выводим
writeln; //переход на новую строку
writeln(sum);
readln(k);
for i := 1 to N do
if ((a[i] mod k) = 0) then
s := s + a[i]; //сумма эл-тов кратных k
writeln(s);
end.
227 бит = 227 / 8 / 1024 / 1024 Мбайт = 0.0000270605 <span>Мбайт </span>