Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program gf; var x: integer; beginwrite('положительные двухзначные числа: '); for x: =-99 to 99 doif (x< -9) and (x> -100) thenwrite(x, ' '); writeln; write( ' отрицательные двухзначные числа: '); for x: =-99 to 99 doif (x> 9) and (x< 100) thenwrite(x, ' '); end.
1.найти разность показаний счетчика на конец месяца и на начало месяца.
2.умножить на цену одного квт/часа
qbasic
screen 7
input x
input y
input c
s=x+y/2*c
print "x+y/2*c="; s
end
a-возраст cаши
b– возраст маши
program r;
var a,b: integer;
begin
readln(a,b);
if a=b then writeln («ровесники»)else writeln( «неровесники»)
end.
Популярные вопросы