Расшифровать йюшсзъ дс, щчнювкм? щшф ыс агюцлръ жьябцйфшикд югъраокхюц, эю згхгкэкд цфктм, иё ашсйгыикд цгыгй юкчифк. ёцз япсюёю сдь сэгуъэзщж ж йьюя, н и ржзёщ внгха. фщршсшжчч щ хдм ыфчльтдс, ьвынюъ, ецб къльчитап(ьняши), н ьвйокрдкохъ жьмдкчщ, юёёуюз в хдпэф. ыс ытаявхйм ёщ ззяъ а иё яхйкщ сдь юзгуюд лдь фзчггцсяжыз щсъёк. псн ёю ыс йзцъ эгафэфя, иь фчдкбидосй дкшъм дю езйтъм в ыихьрэнифя з яеечх. ъьсэхъ зэг жыиюэц ююыч вы екврдкохъуь пзншфёз щфчдьдынл, хд оэгк лкш ыц щлдд шюзч, эф й гдю ёзшфж ик съфётрсэъй жьсэсжхдуь кипаг ж . фюын ёю, щздгэгбсцц. ъюжичщ юз исдйч лцз жбапёрчч, ггщёёйим ёщ ътёбидосй , яиёв юя жьяиёаъ ч жьбътьц а хёы, эшйъ дс в хд зшяифкщ дс щпеъйю, ццафёз и сжзёщ внгха дп въкокд иё бчдъюцнтж. й хчях ёкя деяъ ъик вхтёр шцжг ч дьвъм. жг, й фщюётк ссншгэ яшф цс аръ ёёкишшсй ик ёцз эюезщръмэз внгха, дь лцз нръ уяпщз в лцз ьха жъгжняжыз ыфчдчуишш, ъбхкбэчл хию уюэзиюссщшам ъфе зш сцзяж цгызу зщфзсб. фюцггэзщж, й жъъснщчйшщж ю ивц. ьздюръ эгщнщгцъ юхд, жьаъфьтадо съ йэфя зй ёцзю, хъ иё сьсб аъфьтадо фз щшфь сб, ф цзю лцз гядео внкь сюцггыз, уръ хпчъ икуаекхъ. жьсэсжхас а.д эюесяъ ьсэд щышгкдщд ххёяадо лцз ыфчдчуак эющёкбакохъ иё д, и зэг. й ф нръ ть саб ыфш иё бдём, д щышгкео ыихпрмел б юзюумшшюшс, кчюззфэс, щъёцъюццх ъ хяёвд. ивлдуь хд жьцъукюц. йкчдмтюд икуъйвхиивю ъ иёщ юнжгдд ююыч и яшздж. а жьлдйч д шстъэ щшф цсйю х йёхй хпч чзэ, фссэж чдъгрипщ чзэ, д ынафётк уътьвыззф ж эю жнжюэ. жъюеешгжъ щюзс ёю ж уьраяёсюзю сцняю, югъдпгм, с цсюхнйв бъкьсийв ъ ч хёывнгхдиэзь фгаэчжфь, нэцжхълъфжнл ъ ъдъюссэхъешъ. ъеьвдиэф ьиё сццяф чдъгриь, шъужг й гщчнюкч дс зфэзщ, уъкэфчдое ъ ёёчвнм, йюб лкуэн агюззфцз вхцсъючц, щфсгисцфвд акв лдь внкь сцёккыз, в нъдо цыс зфжзъъэн эю есягцъ зчхжьсцсб, д жеё ьд ёёкак нръ икуаекрм дёвд, иё ыияёц, ыс гхиш щ шилвц ушзщръ, ежюэцб фезяьдивю, бцйфцъщд ъ иёщ, эцжхъ?
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 100 to 405 do
if A mod 13 = 0 then P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 8.85587927807922E+56
Вторая программа:
Var
A:integer;
P:real;
Begin
P:=1;
For A:= 11 to 36 do
if A mod 2 = 0 then P:=P*A;
WriteLn('P = ',P);
End.
Результат работы программы:
P = 4.37068711644365E+17
Третья программа:
Var x:real;
Begin
WriteLn('y(x) = 5*x +6');
x:=1;
Repeat
WriteLn('y(',x:0:3,') = ',5*x+6);
x:=x+0.4
Until x>4;
End.
Результат работы программы:
y(1.400) = 13
y(1.800) = 15
y(2.200) = 17
y(2.600) = 19
y(3.000) = 21
y(3.400) = 23
y(3.800) = 25
var
i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(21)-10;
for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Каждый пятый эелемент массива: ');
for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5);
end.
2.
var
x,i: integer;
A: array [1..20] of integer;
begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Натуральные числа в диапазоне [5..10]: ');
for i:=5 to 10 do write(A[i]:5);
writeln;
x:=1;
writeln('Их произведение: ');
for i:=5 to 10 do x:=A[i]*x;
write(x:5);
end.