<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
#include <iostream>
int main()
{
int side, S, P;
std::cout « "Enter side: ";
std::cin » side;
P = side * 4;
S = side * side;
std::cout « "\nP = " « P « "\nS = " « S;
return 0;
}
В августе 1981 года IBM выпустила компьютерную систему IBM PC (фирменный номер модели IBM 5150). Полугодичный план его продаж был выполнен за месяц. Его популярность была обусловлена егооткрытой архитектурой, что позволяло сторонним фирмам осуществлять его ремонт, обслуживание, а также производство периферийных устройств. К 1988 году было произведено 25 миллионов IBM-совместимых ПК, но из них лишь немногим более 15 миллионов — самой IBM.
Var n,k:integer;
begin
read(n);
while (n>0) do begin
k+=1;
n:=n div 10;
end;
writeln(k);
<span>end.</span>
подергай синий колпачок либо сними и обратно вставь
я так всегда делаю