Перегляньте слайди презентації.

​

Створіть програми мовою Pascal, та надішліть створені файли з розширенням .pas на скриньку вчителя ostrenko.aleks@gmail.com.

​

Якщо у Вас немає середовища програми Pascal, то ви можете написати текст програми в текстовому редакторі Microsoft Word або на слайдах цієї презентації. Перешліть створений документ чи презентацію на скриньку вчителя ostrenko.aleks@gmail.com.

Задача 1.

Коли Василині Премудрій виповнилося 18 років, Чахлик Невмирущий вирішив одружитися з нею. Василина запитала Чахлика, скільки у нього скринь із золотом. Чахлик відповів, що зараз у нього n скринь і щороку додається ще по m скринь. Василина пообіцяла, що вийде заміж тоді, коли у Чахлика буде k, повних скринь із золотом. Скільки років буде тоді нареченій?

Дано:

Початковий вік - 18 років years:=18;

Початкова кількість скринь - n sum:=n;

Щороку додається ще по m скринь sum:=sum+m;

Необхідна кількість скринь – k умова sum<=k

​

Скільки років буде нареченій?

Program z1;

Uses crt;

Var n,m,k,years,sum:integer;

Begin

writeln(‘Введіть початкову кількість скринь’); readln(n);

writeln(‘Введіть щорічний прибуток’); readln(m);

writeln(‘Введіть потреби Василини’); readln(k);

sum:=n;

years:=18;

while sum<=k do

begin

end;

writeln(’Василині виповнилось ’, years, ’ років’);

readkey; End.

Задача 2.

Дано натуральне число n дійсні числа а₁, а₂,..., а_n (а₁<>0). Відомо, що в заданій послідовності є хоча б одне нульове значення. Розглядаючи члени послідовності, що розташовані до першого нульового елемента, визначити:

1) суму найбільшого і найменшого елементів;

Program z2;

Uses crt;

Var a,max,min,p1,p2,i:integer;

Begin

randomize;

max:=0;min:=1000; i:=1; a:=1;

while a<>0 do

begin

a:=random(10)-5; write(a,’ ’);

if then ;

if then ;

end;

writeln;

writeln(‘Сума=’, )

readkey;

End.

Задача 3.

Дано n чисел. Обчислити кількість додатних чисел, які діляться на 5 та визначити максимальне серед них.

Використати цикл з передумовою.

Умова (a >0)and(a mod 5=0)

​

Пошук кількості k:=k+1;

Пошук максимального елемента if a>max then max:=a;

Program z3;

Uses crt;

Var a,i,n,k,max:integer; sa:real;

Begin writeln(‘Введіть кількість чисел’); readln(n);

randomize; k:=0; max:=0; i:=1;

while i<n do

begin a:=random(20)-5; write(a,’ ’); i:=i+1;

if then

begin

end;

end;

writeln; writeln( );

writeln( );

readkey;

End.