Program n_5;
var a, d: integer;
b, c, f: real;
begin
d := random(1, 8);
writeln('Для выбора А-92 введите 1. Цена: 20.00руб. за литр');
writeln('Для выбора А-95 введите 2. Цена: 25.00руб. за литр');
writeln('Для выбора А-98 введите 3. Цена: 30.00руб. за литр');
write('Введите марку бензина - ');
readln(a);
write('Введите количество литров - ');
readln(b);
if (a < 1) or (a > 3) or (b <= 0) then
write('Ошибка. Введены некорректные значения');
case a of
1: c := 20 * b;
2: c := 25 * b;
3: c := 30 * b
end;
writeln;
writeln('.........Кассовый чек.........');
writeln('АЗС: "Полный бак"');
writeln('Адрес: г.Волгоград, улица Новослободская д.32');
writeln('Кассир: Иванова Ирина Викторовна');
writeln('Номер колонки: ', d);
case a of
1: writeln('Бензин: А-92');
2: writeln('Бензин: А-95');
3: writeln('Бензин: А-98');
end;
write('Введите размер оплаты - ');
readln(f);
writeln('Сумма к оплате - ', f);
if f > c then
writeln('Сдача: ', f - c)
else
writeln('Не достаточно средств');
write('Хорошего дня');
end.
Program v;
var x, y: integer;
begin
readln(x);
readln(y);
if(x<y) then writeln(x);
else writeln(y);
end.
используется div (k;(10**n))=ответ
1)
var
x1, x2, y : real;
r1, r2 : byte;
begin
writeln('введите:');
write('X1 = ');
readln(x1);
write('X2 = ');
readln(x2);
write('R1 = ');
readln(r1);
write('R2 = ');
readln(r2);
y := Power(10, x1-r2)*(abs(x2-r1)/sin(degToRad(x2)));
writeln('Y = ', y);
end.
2)
var s : real;
begin
for var n := 5 downto 1 do begin
var fac : integer := 1;
for var i := 1 to 2*n do fac *= i;
s += 1/fac;
end;
writeln(s);
end.
3)
var
s, a, eps : real;
n : integer;
begin
write('ввелте точность EPS = ');
readln(eps);
repeat
n += 1;
a := Power(-1, n-1)/sqr(n);
if abs(a) <= eps then s += a;
until abs(a) <= eps;
writeln('S = ', s);
end.
надеюсь нигде в расчетах не накосячил...
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
if ReadlnString.ToLower.Contains('кот') then Print('МЯУ')
else Print('ГАВ')
end.
<h2>Примеры</h2>
Извините, пожалуйста, вы не подскажете, который час?
МЯУ
Кто я? кто
ГАВ