Var s,k,m:integer;
begin
write('s = ');
readln(s);
k:=s div 800;
m:=s mod 800;
writeln('Кругов: ',k,' и ещё метров: ',m);
end.
Пример:
s = 5020
Кругов: 6 и ещё метров: 220
1. Tux paint
2. Animation
1.Создать новую страницу
2.сохранить данную работу
1. C
2. B
3. 11
4. B
5. D
6. D
7. B
8. A
Я ничего незнаю мне самой нужен ответ но никио ничего не пишет
П1 -> П0 x>=0 21
x^2 ИП1 x^2 + П2 4 - x>=0 21
ИП2 1 - x<0 21 1 С/П 0 С/П
Ввод: x ^ y С/П.
Блок-схема примерно такова:
/ x, y /
|
нет < x > 0 > да |
|----- нет < x^2 + y^2 <= 4> да |
|----------------------- нет < x^2 + y^2 >= 1 > да |
L / не принадлежит / / принадлежит /