А алфавит какой рус или укр?
n = int(input())
print ('The next number for the number', n,'is',n+1)
print ('The previous number for the number', n,'is',n-1)
Не могу прислать фото, так что буду словесно описывать
начало
в паралеллограмме:а,б,с
ромб:а=б
ветка да: в паралелограмме (с). конец ветки
ветка нет: ромб (а>б): ветка да (в паралеллограмме (б) конец ветки; ветка нет (в паралеллограмме (а)) конец ветки
1. ((x-1)/sqr(y)-1/x)/(1/y+1/(x+1))
2.
program Schet;
var x,y:real;
begin
write('Введите значение X: ');
readln(x);
if (x+100>0) then begin
y:=(sqr(x)+4)/sqrt(x+100);
writeln('Y = ',y) end
else writeln('При данном значении X выражение не может быть рассчитано!')
end.
3.
program Func;
var x,y:real;
begin
write('Введите значение X: ');
readln(x);
if x<=0 then y:=4*x else
y:=(sqr(x)+1)/2;
writeln('Y = ',y)
end.
4.
program interval;
var s,x:real;
begin
x:=0;
repeat
s:=2*x*x+1;
writeln('при X = ',x:5:2,' S = ',s:6:2);
x:=x+0.5
until x>10
end.
Все программы написаны на языке ABC Pascal и проверены на функциональность
Алгоритм:
Начало
Ввод t
Если t>1 часа, то
начать выполнение операторов
ввод S;
V=S/t;
вывод V
закончить выполнение операторов
иначе
начать выполнение операторов
ввод V;
S=Vt;
вывод S;
закончить выполнение операторов
Var S,V,t:integer;
begin
read(t);
if t>1 then
begin
read(s);
v:=s/t;
writeln('Скорость=',v);
end
else
begin
read(v);
s:=v*t;
writeln('Расстояние=',s);
end;
end.