Существуют три вида циклов на языке Pascal:
1) цикл с параметром (с известным числом повторений) for; используется, когда известно, сколько раз выполнится цикл;
2) цикл с предусловием while; используется, когда неизвестно число выполнений цикла и цикл выполняется, пока условие верно;
3) цикл с постусловием repeat; используется, когда неизвестно число выполнений цикла и цикл выполняется до истинности условия.
Примеры.
1) найти сумму первых 10 натуральных чисел:
s:=0;
for i:=1 to 10 do s:=s+i;
write(s);
2) найти сумму всех натуральных четных чисел в промежутке от 7 до 45:
s:=0; i:=8;
while i<45 do
begin
s:=s+i;
i:=i+2
end;
write(s);
3) найти сумму всех натуральных четных чисел в промежутке от 7 до 45:
s:=0; i:=8;
repeat
s:=s+i;
i:=i+2
until i>45;
write(s);
1) программа пропускает если ввести пароль basic иначе так и продолжает его спрагивать
2) запрашивает число, выводит его квадрат и куб через табуляцию, выводит его куб и квадрат прям без пробелов одним числом
выводит его куб и квадрат с текстовыми пояснениями
3) 5 линий слева направа нисходящие
4) 3 точки и 3 линии, одна вертикальная одна слева направа восходящая и из последней ее точки в в лево линия
5) построится подобие координатной плоскости и синусоида но точками и для угла от -10 до 10 радиан с шагом 0.01
50+50+10+10+10=130 и так 2 раза (5 купюр +5 купюр ) итого 10 купюр
ответ 2 билета
<span>это взаимосвязанная совокупность средств, методов и персонала, используемых для хранения, обработки и выдачи информации для достижения цели управления</span>
Pascal
var
m : integer;
a,b,y : real;
begin
writeln ('menu:');
writeln ('1) y= (a+b)2');
writeln ('2) y= a^2-b^2');
writeln ('3) y= 1/(a+b)')
writeln ('a=');
readln(a);
writeln ('b=');
readln(b);
readln (m);
case m of
1: y := (a+b)*2;
2: y :=sqr(a)-sqr(b);
3: y := 1/(a+b);
end;
writeln ('y=',y:3:2);
end.