1)
program z1;
Var a:integer;
Begin read(a);
if (a>9) and (a<100) then writeln(a, '-двузначное число')
else writeln(a, '-не является двузначным числом');
end.
2)
program z2;
Var i:integer;
Begin
for i:=1 to 9 do if (i mod 2 = 1) then writeln(i, ', ');
end.
2 способ:
program z2;
Var i:integer;
Begin
i:=1;
while i<=9 do
begin write(i, ', ');
i:=i+2;
end;
end.
3)
program z3;
Var i,n:integer;
S:real;
a: array[1..100] of real;
Begin
write('Введите количество элементов массива:');
readln(n);
write('Введите элементы массива:');
for i:=1 to n do read(a[i]);
i:=1; S:=0;
while i<=n do
begin S:=S+a[i];
i:=i+2;
end;
write('S=',S);
end.
<span>var a:array [1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do begin
a[i]:=random(50);
s:=s+a[i];
write(a[i],' ');
end;
writeln;
writeln ('summa=',s);
readln;
end.</span>
1)Азбука морзе:
Информатика - ..-....-.- - - .-.- -.--..-.-.-
2)Таблица Юникод(Unicode):
Инофрматика : 0428 041D 0424 041E 0420 041C 0410 0422 0418 041A 0410
3) Кодовая Таблица Символов:
Информатика : 136 173 228 174 224 160 226 168 170 160
program name;
const
n:=15
var
i,a:array[1..n] of integer;
begin
for i:=1 to n do begin
random(a[i]);
writelm(a[i]);
end;
end.
Пол задания