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>
Var a,b,c:integer;
begin
a:=random(10);
writeln('a = ',a);
b:=random(10);
writeln('b = ',b);
c:=random(10);
writeln('c = ',c);
writeln('Среднее арифметическое = ',(a+b+c)/3);
end.
Пример:
a = 4
b = 2
c = 9
Среднее арифметическое = 5
Информатика(ответ)- роикатфмаин(ребус) и ставишь цифры над буквами ребуса это так: р5, о4, и1, к10, а11, т8, ф3, м6, а 7, и9, н2 (цифры ставятся сверху)
X mod y - это остаток от деления x на y, x div y - частное.
После выполнения первой строки значение а не изменится, значение b станет равным (349 mod 10)*100+14=9*100+14=914.
После выполнения второй строки значение a станет равным <span>(914 div 10) mod 10=91 mod 10=1
Ответ: 1
</span>
Ответ:
1. Моя улюблена страва - горохове пюре (Істинне)
2.Я живу в місті Київ (Істинне)
3.Мене звуть Олег (Хибне)
Объяснение: БГЫ