var m,k:integer;
n:real;
begin
writeln('Введите n и m через пробел:');
read(n,m);
k:=0;
writeln('Шаг ',k,', n=',n,', m=',m);
while m >= 6 do begin
m:=m-2;
n:=n*2;
k:=k+1;
writeln('Шаг ',k,', n=',n,', m=',m);
end;
writeln('n=',n,', m=',m);
end.
Результат:
Введите n и m через пробел:
1 10
Шаг 0, n=1, m=10
Шаг 1, n=2, m=8
Шаг 2, n=4, m=6
Шаг 3, n=8, m=4
n=8, m=4
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var x,a,x1,x2,delta,lambda,y:real;
Write('Введите границы изменения аргумента и шаг: ');
Read(x1,x2,delta);
a:=1.44;
x:=x1;
repeat
lambda:=Sqr(Tan(x*a/2*pi));
y:=Power(x*(2.7*Power(x,1.35)+lambda),1/3);
Writeln('x=',x,' y=',y);
x+=delta
until x>x2
end.
<u><em>Тестовое решение</em></u>
Введите границы изменения аргумента и шаг: 1.2 2.0 0.2
x=1.2 y=1.63776729113963
x=1.4 y=1.81249323168809
x=1.6 y=2.04691849426225
x=1.8 y=2.40906764678559
x=2 y=4.09613421404126
http://excelpractic.ru/kak-postroit-grafik-v-excel.html
На каком языке надо? Если паскаль то держи:
1)Program A;
Var a:Integer;
Begin
Write('Введите двузначное число');
Read(a);
If (a>10) and (a<100)
Then
Writeln('Число является двузначным')
Else
Writeln('Вы ввели не двузначное число!');
End.
2)var
i,a:integer;
begin
a:=2;
for i:=1 to 20 do
begin
a:=a-1;
writeln(a);
end;
end.
3)Там можно и самому просто дели 555 на 2 как можно больше чтоб конечный ответ был 2/2=0 и там считай уже
4)program b;
var a:integer;
begin
write('Введите любое четное число= ');
read(a);
if a mod 2 = 0
then
write('Ответ= ',a/2)
else
write('Было введено нечетное число!');
end.
5)program d;
var i,a:Integer;
begin
a:=2;
for i:=1 to 20 do
begin
a:=a+10;
writeln(a);
end;
end.
6)Его надо делать так же как число и 555 а ответ вообще 4 единицы
