Переводим цену пирожка в копейки (по формуле 100a + b), умножаем на n и получаем цену n пирожков в копейках. Делим с остатком на 100 и получаем в целой части число рублей, в остатке – число копеек.
Pascal:
program pies;
var a, b, n, total: integer;
begin
writeln('Введите значения a, b, n:');
read(a, b, n);
total := n * (100 * a + b);
writeln('Цена пирожков: ', n div 100, ' руб. ', n mod 100, ' коп.')
end.
Wordpad и Word это схожие программы различающееся по функциональности. Wordpad беднее по функциональности чем Word.
Например отсутствуют авто фигуры и некоторые другие функции.
Var a ,b,c :real;
Begin
Writeln ('введите три числа');
Readln (a,b,c);
If (a<b+c) and (b<a+c)and(c<a+b) then
Begin
If (a=b) and (a=c)and (b=c) then Writeln (' треугольник равносторонний')
Else begin
If (a=b)or(a=c)or(b=c) then Writeln ('треугольник равнобедренный')
Else Writeln ('треугольник разносторонней');
End;
End
Else Writeln ('треугольника с заданным сторонами не существует');
End.
1) 1
2) 0
3) 1
4)1
5)0
6)0
7)0
8)0
9)0
10)0
program raf105;
var v:array[1..9] of real;
i,j,kolvo,n:integer;
max:real;
begin
writeln('Введите 9 значений по очереди: ');
for i:=1 to 9 do
read(v[i]);
for j:=1 to 9 do
begin
for i:=1 to 9 do
begin
if (v[j]-v[i]) > 0
then kolvo:=kolvo+1;
end;
if kolvo=8
then
begin
max:=v[j];
n:=j;
end
else kolvo:=0;
end;
v[n]:= -max;
writeln('Максимальное число с противоположным знаком: ',v[n]);
end.
<em>Написано на языке PascalABC.NET</em>