1. Var a,b,pr:integer; Begin pr:=1; write('Вводите числа, когда закончите - введите 0. '); readln(a); while (a<>0) do begin if (a>0) and (a<10) then begin b:=b+1; pr:=pr*a; end; readln(a) end; Writeln('Чисел, больше 0 и меньше 10: ',b,' их произведение:',pr);end.
2. Var a,b,c,i,sum,f:integer; Begin Write('Введите 10 двузначных чисел: '); repeat readln(a); until(a>=10) and (a<100); for i:=1 to 10 do begin repeat readln(a); until(a>=10) (a<100) b:=a mod 10; c:=a div 10; sum:=b+c; if (sum mod 2 = 0) then f:=f+1; end; Writeln('Кол-во цифр, удовлетворяющих условию: ',f); end.
3. Var a,b,c:integer; Begin write('Вводите целые положительные числа.'); repeat readln(a); b:=b+a; c:=c+1; until (b>100); Writeln('Кол-во введёных чисел:',c,' их сумма:',b); end.
Var a,b,pr:integer;
Begin
pr:=1;
write('Вводите числа, когда закончите - введите 0. '); readln(a);
while (a<>0) do begin
if (a>0) and (a<10) then begin b:=b+1; pr:=pr*a; end; readln(a) end;
Writeln('Чисел, больше 0 и меньше 10: ',b,' их произведение:',pr);end.
2.
Var a,b,c,i,sum,f:integer;
Begin
Write('Введите 10 двузначных чисел: '); repeat readln(a); until(a>=10) and (a<100);
for i:=1 to 10 do
begin
repeat readln(a); until(a>=10) (a<100)
b:=a mod 10;
c:=a div 10;
sum:=b+c;
if (sum mod 2 = 0) then f:=f+1;
end;
Writeln('Кол-во цифр, удовлетворяющих условию: ',f);
end.
3.
Var a,b,c:integer;
Begin
write('Вводите целые положительные числа.');
repeat
readln(a);
b:=b+a;
c:=c+1;
until (b>100);
Writeln('Кол-во введёных чисел:',c,' их сумма:',b);
end.
program raf105;
var
A: real;
x: integer;
begin
write('Введите число в битах: ');
readln(A);
writeln('1. Байт');
writeln('2. Килобайт');
writeln('3. Магабайт');
writeln('4. Гигабайт');
write('Введите номер единицы, в которую нужно перевести: ');
readln(x);
if x=1 then writeln(A/8,' байт')
else if x=2 then writeln(A/8000,' кб.')
else if x=3 then writeln(A/8000000,' мб.')
else if x=4 then writeln(A/8000000000,' гб.')
else writeln('Ошибка');
end.
PascalABC 3.4.2