Не разговаривать с чужими людьми переходит дорогу по зебре не гулять после 10 вечера вроде все но сам(а) еще придумай
Var
b:integer;
begin
readln(b);
case b of
0:
writeln('Нуль');
1:
writeln('Один');
2:
writeln('Два');
3:
writeln('Три');
4:
writeln('Четыре');
5:
writeln('Пять');
6:
writeln('Шесть');
7:
writeln('Семь');
8:
writeln('Восемь');
9:
writeln('Девять');
end;
<span>end.</span>
Проблема: Социальные сети отнимают много времени. Забивают голову ненужной информацией. Из-за них мы реже стали видится с друзьями, теперь на первом месте виртуальное общение. И все в таком духе
Первая задача
var a,b,x,y,z:
real;
begin
write ('х=');
read (x);
write('y=');
read (y);
write ('z=');
read (z);
a:= (x+y-z)/(x*x+2);
write ('a=');
write (a:1:2); end.
Вторая
var a,b,x,y,z:real;
begin
write ('х=');
read (x);
write('y=');
read (y);
write ('z=');
read (z);
a:= 5*((2*x-z)/(3+y*y));
write ('a=');
write (a:1:2);
end.
Var N:Array[1..20] of integer; i,j,q,k,max:integer;begin Randomize;writeln('массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);end;writeln;i:=0;writeln('Измененый массив');While j<20 do beginj:= j + 2; k := N[j-1];N[j-1]:=N[j]; N[j]:= k;end;foreach q in N do beginwrite(q :4);end;end.
var N,M:Array[1..20] of integer; i,j,min,q,k,max:integer;begin Randomize;max:=-200; min:=200;writeln('1 массив');for i:=1 to 20 do beginN[i]:= random(100)-50;write(N[i]:4);if ((N[i]>0 )and(N[i] mod 2 = 0))then beginif max < N[i] then max := N[i];if min > N[i] then min := N[i];j:= j + 1;M[j]:=N[i];end;end;writeln;writeln('2 массив');foreach k in M do beginwrite(k:4);end;writeln;if (max = -200) or (min = 200) then write ('нет чётных положительных элементов')else beginwrite('max = ' ,max:4);write(' min = ' ,min:4);end;end.