Program n1;
var a,b:
integer;
beginwriteln ('введите число');
readln (a);
b:= a div 100;
a:= a mod 100;
a:=(a*10)+b;
writeln (a);
end.
program n2;
var a,b:integer;
begin
writeln ('введите год');
readln (a);
b:= a div 100;
writeln (a,' год относится к ',b+1,' столетию');
end.
Муравей должен сделать 2 раза
Вправо 2 раза | вниз 1 раз | влево 2 раза
т.е он 2 раза выполнит
"Вправо 2 раза | вниз 1 раз | влево 2 раза"
по итогу выполнения кубик будет в точке е2
Вот так! Я тебе помог помоги мне дай мне баллов!
Program train;
var
x, y, col: integer;
begin
writeln('введите вместимость вагона, тонн ');
readln(x);
writeln('введите количество зерна для перевозки, тонн');
readln(y);
col:=y div x;
if (x*col)<y then
Inc(col);
writeln('количество требуемых вагонов ', col);
end.
Тест
Введите вместимость вагона, тонн 3
Введите количество зерна для перевозки, тонн 10
Количество требуемых вагонов 4
Ответ: если не ошибаюсь, 42
Объяснение:
У тебя дан цикл вайл с условием пока s не включая 75 делать.
То есть когда значение s будет 70, цикл завершается. Можем посчитать, что когда s будет 10, n станет 6. Получается нам нужно 7*6 = 42.
Но я не гарантирую сто процентов правильно, я не прогал на паскале много лет) Вот был бы c++ или какой-либо другой язык - было бы поинтереснее)
Для проверки можешь в онлайн компилятор вогнать прогу, тебе выдаст ответ. Но логику я пытался объяснить, она не сложная
