составить программу по информатике!
Задание: Набрать приведенную ниже программу в среде pascalABC.NET.
В прилагается схема.
Программа на языке Pascal:
//Вывести числа от 1 до 10 через пробел
program while1;
var i:integer //целое число
begin
writeln('Вас приветствует программа Петрова П')
i := 1; //задать начальное значение переменной i
while (i <= 10) do
begin
write (i, ' '); //Вывод значений переменной i через пробелы
i := i + 1; //Увеличение значения переменой i на 1
end;
end.
Задание 1.
int a,b;
scanf("%i", &a);
scanf("%i", &b);
if (a<b)
for(int i=a; i<=b; i++)
printf("x = ", x , "; y = ", ((x3+1)/(x-3)+x) );
Задание 2.
int sum;
sum = 0;
for(int i=1; i<=115; i+=6)
sum+=i;
printf(sum);
Задание 3.
int a,b, n;
n = 0;
scanf("%i", &a);
scanf("%i", &b);
if (a<b)
for(int i=a; i<=b; i++)
if (i%11 == 0) n++;
if (a>b)
for(int i=b; i<=a; i++)
if (i%11 == 0) n++;
printf(n);
На C ничего никогда не писал, поэтому может чё-то не так, но по идее как-то так...
9*3*N - не может быть больше 54, т.е.
N может быть только 1 или 2. По условию х>=10 -> N=2 (N -порядок числа).
Поэтому искать нужно среди чисел от 11 до 54. Решение - число 15.
var n,m: integer;
begin
write('n = '); readln(n);
if n=2 then
begin m:=11;
repeat
if (m mod 10)*(m div 10)*3=m then
begin
writeln('число: ',m);
m:=55;
end;
m:=m+1;
until m>54;
end
else writeln('нет решения');
end.