Var a,i,k: integer;
Begin
write('Введите число: ');
readln (a);
k:=0;for i:=1 to a do
if a mod i = 0 then k:=k+1;
if k=2 then writeln(a,' простое число')
else writeln(a,' не является простым числом')
End.
Ответ:
cmyk
так как типография принимает макеты только в таком варианте
Объяснение:
Program a;
uses crt;
var i:integer;
a: array [1..100] of real;
s: real;
begin
clrscr;
for i:=1 to 100 do begin
readln (a [i]);
s:=s+a [i];
end;
writeln (s);
end.
Код Pascal:
Var
P:byte;
Begin
Write('Введите рост человека: ');ReadLn(P);
if P > 180 then WriteLn('Высокий')
else WriteLn('Не очень высокий')
End.
Пример работы программы:
Введите рост человека: 150
Не очень высокий
Теория:
1 бит - наименьшая единица измерения информации.
1 байт = 8 бит.
Решение:
88 бит = 11 байт.
Ответ: 11 байт