1.Логические данные (булевский тип)
2.Символьные данные
2.1.текст
3.Арифметические данные
3.1. Данные с фиксированной точкой
3.1.1 целые числа
3.2. Данные с плавающей точкой
3.2.1. одинарная точность
3.2.2. двойная точность
Program asd;
Var a,b,n:integer;
Begin
readln (n); {стоимость}
for a:=0 to 9 do
for b:=0 to 9 do
if (3*a)+(5*b)=n
then writeln (3*a,'+',5*b,'=',n);
end.
Проверь тк.писал схода
1) Маша
2) Молодец
3) Молоток
4ое у меня не прогружается
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
// число гарантированно может иметь до 9 знаков
var n:=2*ReadInteger('n=').ToString.Inverse.ToInteger;
Writeln(n)
end.
<u>Пример</u>
n= 1237
14642