а»);
readln (a);=1;:=ai
end.
Дано натуральне число n (n <= 9999). З'ясувати, чи вірно, що це число містить рівно три однакові цифри, якщо воно записане чотирма цифрами, як, наприклад, числа 3363, 4844, 0300 і т.п.
Program z_8crt; n, a, b, c, d: integer;: boolean;; (n);:=n div 1000;:=(n div 100) mod 10;:=(n div 10) mod 10;:=n mod 10;:=False (a=b) and (b=c) then b:=true; (a=c) and (b=d) then d:=true; (a=c) and (c=d) then b:=true; (b=c) and (c=d) then b:=true;
if b=truewriteln («Число содержацее три Одинокова цифри»).
Дано чотири цілих числа. Визначити, скільки з них негативних.
Program z_9; n: integer;, b, c, d: real;: integer;;:=0; (a); (b); (c); (d); a <0 then n:= n +1; b <0 then n:=n +1; c <0 then n:=n +1; d <0 then n '= n +1;
writeln («Кількість негативних чисел =», n);.
гральних картах умовно присвоєні такі порядкові номери: «Піки»- 1, «Трефи»- 2, «Бубни»- 3, «Чирви»- 4. По заданому номеру масті m (1 <= m <= 4) визначити назву відповідної масті.
Program z_10n: integer; («Введіть цифру»); (n); (n <1) or (n> 4) then («Немає такої масті»); n of
: writeln («Піки»);
: writeln («Трефи»);
: writeln («Бубна»);
: writeln («Чирви»);
end.;.
Дано речові позитивні числа a, b, c. З'ясувати, чи існує трикутник зі сторонами a, b, c.
Program z_6crta, b, c: veal; (a); (b); (c); not ((a + b> c) and (a + c> b) and (c + b> a) writeln («не існує») if (sqr (a) + sqr (b)=sqr (c)) orsqr (c) + sqr (b)=sqr (a)) or (sqr (a) + sqr (c)= sqr (b)) then
writeln («прямокутний трикутник») writeln («існує»);.
Дано ціле число більше 99. Перевірити, чи буде парною цифрою 3-тя від кінця цифра числа.
Program z_3; a, b, c, x: integer; readln n (x) until x> 99;:=x div 100;:=x mod 2; b <> 0 then («Непарне»); b=0 then («парне»);
writeln (a);.
З тризначного числа X відняли його останню цифру. Коли результат розділили на 10, а до приватного зліва приписали останню цифру числах X, то вийшло число 423.Найті число X.z_1
Var chastnoe, cifra, x, y: integer;=423;:=(y div 100);:=(y mod 100);:=chastnoe * 10 + cifra;
writeln (x);.
Додаток 2
Розробити додаток, що дозволяє відтворювати звукові файли різних форматів, додаток повинен виводити інформацію про довжину звукового файлу, часу відтворення і часу, який залишився до кінця звучання файлу.
unit Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, MPlayer, jpeg;=class (TForm): TMediaPlayer;: TButton;: TButton; : TButton;: TButton;: TButton;: TButton;: TTimer;: TOpenDialog;: TImage;: TLabel;: TLabel;: TLabel;: TLabel; FormActivate (Sender: TObject); Button1Click (Sender: TObject); MusicToStr (n : longint): string; Button3Click (Sender: TObject); Button4Click (Sender: TObject); Button6Click (Sender: TObject); Button5Click (Sender: TObject); Button2Click (Sender: TObject); Timer1Timer (Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;
{$ R *. dfm} procedure ...
