1 задача:
program znan1;
uses crt;
var a:char;
begin
clrscr;
readln(a);
while a<>'.' do
begin
writeln(ord(a));
readln(a);
end;
<span>end.
2 задача:
program znan2;
uses crt;
var i,j:integer;
begin
for i:=1 to 16 do
begin
for j:=1 to 8 do
begin
write((i*j-1):5,'-',chr(i*j-1));
end;
writeln;
end;
readln;
<span>end.</span></span>
Процессор! Т.К все остальные устройства-- накопители
5. 2) и 4)
6.a:=3 b:=6
a:=2*a - b
a:=2*3-6
a:=0
b:=a +22
b:=0+22
b:=22
7. если а>б то s:=a+22
иначе s:=b^2
5 не больше 7 значит s:=7^2
s:=49
8. Цикл тут. 1. 10 больше 2, значит a:=2+3=5 b:=10-1=9 c:=3+1=4
2. 9 больше 5 значит a:=5+4=9 b:=9-1=8 c:=4+1=5
3. 8 не больше 8 значит c:=c*b=5*8=40
извини, но из языков программирования которые пишут на русском знаю только 1С и это как по мне издевательство
пишу на старом добром паскале
var a,b,min,max:real;
read(a,b);
if (a <b) then begin
min:=a;
max:=b;
a:= (min+max)/2;
b:=min*max;
end
else begin
min:=b;
max:=a;
b:= (min+max)/2;
a:=min*max;
end;
writeln(a,b);
End.