Var
price,discnt:real;
begin
Read(price);
Readln(discnt);
Writeln(price * (1 - discnt/100));
end.
<u>Пример:</u>
100
12.5
87.5
Компьютер из железа
человек чувствует
iPhone из алюминия
=========
вода сухая
компьютер живой
экран это устройство ввода
Var
a: integer;
a1, a2, a3, max: byte;
begin
readln(a);
a1 := a div 100;
a2 := a mod 100 div 10;
a3 := a mod 10;
max := a1;
if (a2 > max) then
max := a2;
if (a3 > max) then
max := a3;
writeln(max);
end.
Const
M = 3;
N = 4;
Var
A:array[1..M,1..N] of integer;
i,j,k:integer;
Begin
WriteLn('Введите матрицу A(',M,',',N,'):');
For i:= 1 to M do
For j:= 1 to N do
Read(A[i,j]);
WriteLn('Количества положительных элементов в столбцах:');
For j:= 1 to N do
Begin
k:=0;
For i:= 1 to M do
if A[i,j] > 0 then k:=k+1;
Write(k,' ')
End;
End.