Var I: integer;
z:longint;
Begin
ClrScr;
z:=1;
for i:=1 to n do
If ((i mod 9<>0) and (i mod 3=0)) Then z:=z*i;
write('Proizvedenie parnix chisel ravna: ',z);
Readkey;
end.
Обчислити добуток натуральних чисел, кратних 5, від і до n.
Program rabota2c; {Бoльшие числа не вводить}
Uses Crt;
Var I,n: integer;
z:longint;
Begin
ClrScr;
writeln ('Vvedute kolichestvo n: ');
read (n);
z:=1;
for i:=1 to n do
If i mod 5=0 Then
z:=z*i;
write('Proizvedenie natyral6nux chisel kratnix 5 ravna: ',z);
Readkey;
end.
Серед довільного ряду цілих чисел, які вводяться за допомогою клавіатури, визначити кількість натуральних, кратних 9. Робота припиняється, якщо введено нуль.
Program rabota2d;
Uses Crt;
Var I: integer;
z:longint;
Begin
ClrScr;
z:=0;
repeat
readln(i);
If ((i mod 9=0) and (i<>0)) Then
z:=z+1;
until i=0;
write('kolichestvo vvedennux chisel kratnix 9 ',z);
Readkey;
end.
3. Скласти програму з використанням оператора варіанту.
По введеному числу від 1 до 7 вивести на екран відповідний день тижня (1 - понеділок, 2 - вівторок, ...). Якщо введено число не із проміжку від 1 до 7, вивести повідомлення, що такого дня тижня не існує.
Program days3a;
Uses Crt;
Var i: integer;
Begin
ClrScr;
writeln ('Vvedute chuslo ot 1 do 7 ');
read (i);
case i of
1: writeln (' -Ponedelnik');
2: writeln (' -Vtornik');
3: writeln (' -Sreda');
4: writeln (' -Chetverg');
5: writeln (' -Pyatnica');
6: writeln (' -Sybbota');
7: writeln (' -Voskresenie');
Else writeln (' -Takogo dnya nedeli net');
End;
Readkey;
end.
Вивести на екран інформацію залежно від порядкового номера місяця, що виражається цілим числом від 1 до 12, про кількість днів цього місяця.
Program mesec3b;
Uses Crt;
Var i: integer;
Begin
ClrScr;
writeln ('Vvedute chuslo ot 1 do 12 ');
read (i);
case i of
1: writeln (' -Yanvar 31 den6');
2: writeln (' -Fevral 28 ili 29 dney');
3: writeln (' -Mart 31 den6');
4: writeln (' -Aprel6 30 dney');
5: writeln (' -May 31 den6');
6: writeln (' -Ijyn6 30 dney');
7: writeln (' -Ijyl6 31 den6');
8: writeln (' -Avgyst 31 den6');
9: writeln (' -Sentyabr6 30 dney');
10: writeln (' -Oktebr6 31 den6');
11: writeln (' -Noyabr6 30 dney');
12: writeln (' -Dekabr6 31 den6');
Else writeln (' -Takogo mesyaca net');
End;
Readkey;
end.
Визначити агрегатний стан води за температурою, що виражається діапазоном цілих чисел. Дані про температуру вводити за допомогою клавіатури.
Program temper3c;
Uses Crt;
Var i: integer;
Begin
ClrScr;
writeln ('Vvedute temperatyry ');
read (i);
case i of
-273..0: writeln (' - Led');
1..99: writeln (' - Voda');
100..5760: writeln (' - Par');
End;
Readkey;
end.
Вивести на екран власну словесну оцінку погоди (холодно, прохолодно, тепло, спекотно) залежно від температури, що виражається діапазоном цілих чисел і вводиться за допомогою клавіатури.
Program rabota3d;
Uses Crt;
Var i: integer;
Begin
ClrScr;
writeln ('Vvedute temperatyry ');
read (i);
case i of
-273..15: writeln (' - Xolodno');
16..20: writeln (' - Proxladno');
21..30: writeln (' - Teplo');
31..5760: writeln (' - Jarko');
End;
Readkey;
end.
4. Скласти програму з використанням функції користувача.
Знайти довжину сторін трикутника АВС, якщо відомі координати його вершин А(х1,у1,z1). В(х2,у2,z2), С(х3,у3,z3). Необхідно скористатись формулою:
, яка описується у вигляді функції
користувача.
Program rabota4a;
Uses Crt;
Var a1,a2,a3,b1,b2,b3,c1,c2,c3: real;
dAB,dBC,dAC: real;
Begin
ClrScr;
writeln ('Vvedute tochky A(a1,a2,a3) ');
readln (a1,a2,a3);
writeln ('Vvedute tochky B(b1,b2,b3) ');
readln (b1,b2,b3);
writeln ('Vvedute tochky C(c1,c2,c3) ');
readln (c1,c2,c3);
dAB:=sqrt(sqr(a1-b1)+sqr(a2-b2)+sqr(a3-b3));
dBC:=sqrt(sqr(b1-c1)+sqr(b2-c2)+sqr(b3-c3));
dAC:=sqrt(sqr(a1-c1)+sqr(a2-c2)+sqr(a3-c3));
writeln ('d(AB)=',dAB:3:2);
writeln ('d(BC)=',dBC:3:2);
writeln ('d(AC)=',dAC:3:2);
Readkey;
end.
Скласти програму знаходження більшого з п'яти чисел, використовуючи функцію користувача, яка визначає більше з двох чисел.
Program rabota4b;
Uses Crt;