Первый вариант:
Var
A:real;
k:integer;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then WriteLn('Заработок продавца: ',k*A,' руб.')
else WriteLn('Заработок продавца: ',(A*((k-50)*1.2+50)):0:2,' руб.')
End.
Var k:integer;
S,A:real;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then S:=k*A
else S:=A*((k-50)*1.2+50);
WriteLn('Заработок продавца: ',S:0:2,' руб.');
End.
Пример работы программы:
Стоимость одной газеты: 30.15
Количество газет: 200
Заработок продавца: 6934.50 руб.
//Элементы a[i,i] - элементы главной диагонали, в переменной p будем хранить их произведение.
var B: array[1..100, 1..100] of integer;
i, j, n: integer; P: longint;
begin
write('Введите размерность: ');
readln(n);
p := 1;
for i := 1 to n do begin
for j := 1 to n do begin
B[i, j] := Random(100);
write(B[i, j]:3);
if i = j then p := p * B[i, j];
end;
writeln;
end;
writeln('Произведение главной диагонали матрицы: ', p);
end.
Вот) Модуль нужен, чтобы упростить проверку)
var
x, i: integer;
begin
readln(x);
x := abs(x);
for i := 2 to x - 1 do
if x mod i = 0 then
begin
writeln('No');
exit;
end;
writeln('Yes');
end.
Книга не лежит на столе.
Рена не идёт в школу.
Не все фрукты красного цвета.
Не все птицы умеют летать.