<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var c1:=ReadReal('Цена первой покупки:');
var c2:=ReadReal('Цена второй покупки:');
var c3:=ReadReal('Цена третьей покупки:');
var s:=c1+c2+c3; Writeln('Сумма к оплате: ',s);
var p:=ReadReal('Внесена сумма:');
Writeln('Причитается сдача: ',p-s)
end.
<u>Пример</u>
Цена первой покупки: 152.40
Цена второй покупки: 375
Цена третьей покупки: 140.62
Сумма к оплате: 668.02
Внесена сумма: 700
Причитается сдача: 31.98
Какой нужен код?
если никакой то кисд или 5 10 19 12
1 мегабайт = 1024 * 1024 * 8 = 8 388 608 бит
Количество информации (I) = 8 388 608 * 1 / 152 = 55 188 бит
Количество информации на один символ (i) = 55 188 / 2048 = 27 бит
Мощность алфавита = 2 ^ 27 = 134 217 728
В некоторых случаях ответы округленные, может быть Вы опечатались и хотели написать 512. Тогда так:
Количество информации (I) = 8 388 608 * 1 / 512 = 16 384 бит
Количество информации на один символ (i) = 16 384 / 2048 = 8 бит
Мощность алфавита = 2 ^ 8 = 256
В этом случае все ответы нормальные, неокругленные
1. var
a, b: integer;
begin
write('Введите два числа >> ');
read(a, b);
writeln('Числа в обратном порядке: ', b, ' ', a);
end.
2. var
a, b, c: integer;
begin
read(a, b);
c := a + b;
write(a, b, c);
end.
3. var
a: integer;
begin
write('Введите двузначное число >> ');
read(a);
writeln('Сумма цифр = ', a div 10 + a mod 10);
writeln('Произведение цифр = ', a div 10 * (a mod 10));
end.
4. var
a, a1, a2, a3: integer;
begin
write('Введите целое трехзначное число >> ');
read(a);
a1 := a div 10;
a2 := a div 100;
a3 := a mod 10;
if (a1 = a2) or (a2 = a3) or (a1 = a3) then writeln('Да')
else writeln('Нет')
end.
5. var
a, b, c: integer;
begin
write('a b c >> ');
read(a, b, c);
if (a >= b + c) or (b >= a + c) or (c >= a + b) then
writeln('Не существует')
else if (a = b) and (b = c) then
writeln('Равносторонний')
else if (a = b) or (b = c) or (a = c) then
writeln('Равнобедренный')
else
writeln('Разносторонний')
end.
6. var
a, a500, a100, a50, a10: integer;
begin
write('Введите сумма сдачи >> ');
read(a);
writeln('Следует сдать: ');
while a >= 500 do
begin
a500 := a500 + 1;
a := a - 500;
end;
writeln('банкнот по 500 руб. - ', a500, ' шт.');
while a >= 100 do
begin
a100 := a100 + 1;
a := a - 100
end;
writeln('банкнот по 100 руб. - ', a100, ' шт.');
while a >= 50 do
begin
a50 := a50 + 1;
a := a - 50
end;
writeln('банкнот по 50 руб. - ', a50, ' шт.');
while a >= 10 do
begin
a10 := a10 + 1;
a := a - 10
end;
writeln('банкнот по 10 руб. - ', a10, ' шт.');
end.
program ms301;
var a,b,c:integer;
begin
writeln('Введите три числа');readln(a,b,c);
A:=sqrt(a);
B:=sqrt(b);
c:=sqrt(c);
writeln(a,', ',b,', ',c);
readln;
end;