Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
программа, выводящая на экран номер четверти координатной плоскости, которой принадлежит точка с координатами х≠0 и у≠0
program 198;
var x,y: real;
begin;
readln (x; y);
if x> 0 and y> 0 then
writeln (1 chetvert);
end;
if x< 0 and y> 0 then
writeln (2 chetvert);
if x< 0 and y< 0 then
writeln (3 chetvert);
if x> 0 and y< 0 then
writeln (4 chetvert);
end.
for i : = 1 to length(s) do
begin
res : = res + s[i];
if i mod 2 = 0 then
writeln(res);
i : = pos(" ",s); {ищем первый пробел}
delete(s; i; 1); {удаляем первый пробел}
i : = pos(" ",s); {ищем второй пробел, котрый теперь первый}
writeln(s[i-1]); {выдаем знак который находится перед пробелом}
информатия в видиопамяти хронится в двоичном коде
1л=1дм^3
8л = 0.008 куб метров
5.68кг=0.00568 тон
плотность
0.00568/0.008=0.71 тон на кубометр
500*0.71 = 355 тон влезет в цистерну
Популярные вопросы