Перед началом составления программ нарисовать блок-схемы решения задач.
Написать программу, возводящую число в нужную степень, используя цикл while. Числа получить с клавиатуры. Первое число - любое целое. Второе - степень, в которую нужно возвести первое число.
Посчитать, с цикла while, сколько раз можно вычесть из одного числа другое, пока результат вычитания будет больше нуля. Вывести на экран, все промежуточные значения после вычитаний. Для подсчета использовать отдельную переменную, которая увеличивается на 1 при каждом повторении цикла. Числа получить с клавиатуры.
Составить программу угадывания задуманного компьютером числа. Для этого с функции random(10) загадать в переменную x значение
x:=random(10);
и вводить с клавиатуры число, пока оно не будет равно загаданному. В конце программы вывести на экран, загаданное компьютером число.
больше нет(((
program p1;
var x:integer;
begin
write ('x=');
read (x);
if x>0 then
writeln ('Число x положительное.');
if x=0 then
writeln ('Число x нейтральное.');
if x<0 then
writeln ('Число x отрицательное');end.
Программа 2.
program p2;
var x,y,z,s:real;
begin
write ('x=');
read (x);
write ('y=');
read (y);
write ('z=');
read (z);
if x>0 then
s:=s+x;
if y>0 then
s:=s+y;
if z>0 then
s:=s+z;
if x+y+z<=0 then
writeln ('Все числа отрицательные либо нейтральные. Операция невозможна.');
if x+y+z>0 then
writeln ('s=', s);
end.