Var i:integer;
begin
writeln('Дюймы См');
for i:=1 to 10 do
writeln(i:3,' ',2.54*i:5:2);
end.
Результат:
Дюймы См
1 2.54
2 5.08
3 7.62
4 10.16
5 12.70
6 15.24
7 17.78
8 20.32
9 22.86
10 25.40
X>0 правда т.к х ровно 1, а 1 больше 0
у>0 правда т.к у ровно 1, а 1 больше 0
выполняем z присвоить 1
Ответ 1
Где и на кого учишься, если на программиста уходи пока не поздно, иначе компы всяким бабкам за 5 копеек чинить будешь. Не в обиду конечно.
1. Вместо - должен быть /
2. Полоски в другую сторону
3. Нет доменного имени
4. Кириличиские символы не могут использоваться
1 - в
2 - а
3 - б вроде как ячейка содержит 1 байт = 8 бит
4 - вообще-то все они энергозависимы для чтенья и записи. Не понятно что имеется ввиду
5 - в
Простой калькулятор на pascal
Pascal
//////////
var
a, b:Integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Ваш результат сложения:', a + b);
writeln('Ваш результат вычитания:', a - b);
writeln('Ваш результат умножения:', a * b);
writeln('Ваш результат деления:', a / b);
end.