1. Какая из данных команд увеличивает скорость на 5:
1.Скорость увеличить 5
2.Скорость: скорость + 5
3. Пусть “скорость :скорость + 5
4.Пусть :скорость ”скорость + 5
2. Что выведет команда „покажи“
1. пусть “скорость 5
2.пусть “скорость :скорость + 10
3.пусть “скорость :скорость + :скорость
4.пусть “скорость :скорость – 15
5.покажи :скорость
3.Какие из данных команд не будут выполнены
1.А сторона :сторона + 5
2.Б пусть “сторона 8
3.В покажи “сторона
4.Г покажи “сторона + 15
5.Д вп :сторона
6.Е нц :cторона
4.В каком порядке будут выполнены компьютером действия для команды пусть “номер :номер + 10
1. Занести в память компьютера значение переменной номер
2.Вызвать из памяти компьютера значение переменной номер
3. К значению переменной номер добавить 10
5. Что появится на экране после выполнения
сгпо
нц 9
пусть “x 5
повтори 3[пусть “x :x + 5 повтори 3[вп :x пр
Var r,d,s,m,a:real;
Begin;
Write('Введите скорость зайца ');
readln(r);
Write('Введите скорость собаки ');
readln(d);
Write('Введите расстояние до леса ');
readln(s);
Write('Введите расстояние между ними ');
readln(m);
a:=s/r;
if (d*a)>=(m+s)
then writeln('Собака догонит зайца')
else writeln('Собака не догонит зайца');
end.
Про круг
Var p,d,l:real;
Begin;
Write('Введите периметр квадрата ');
readln(p);
p:=p/4;
Write('Введите лину окружности ');
readln(l);
d:=(l/pi);
if r<=p
then writeln('Круг войдёт в квадрат')
else writeln('Круг не войдёт в квадрат');
end.