Радио изобрели в 1895 году. MDCCCXCV
Первый полет в космос состоялся в 1961 году. MCMLXI
Олимпийские игры в Москве были проведены в 1980 году. MCMLXXX
Const nx = 20;mx = 30;
var A:array[1..nx,1..mx]of integer; i,j,n,m,min,z:integer; sum:array[1..nx]of integer;
begin
write('Введите число строк и столбцов');Readln(n,m);min:=1000;
for i:=1 to n do begin
sum[i]:=0;
for j:=1 to n do begin
A[i,j]:= random(100)-50;
write(A[i,j]:5);sum[i]:= sum[i] + A[i,j];end;writeln;
if min > abs(sum[i]) then begin min := abs(sum[i]);z:=i;end;
end;writeln;for i:=1 to n do
writeln('i= ',i,' sum = ', sum[i]:4);writeln;
writeln('Ближе всего к нулю i= ',z,' sum = ', sum[z]:4);<span>end.</span>
Ну ладно
1. Вычислить дискриминант по формуле D=b^2*4ac
2. Если D>0, то
3. В противном случае, если D = 0
4. В противном случае корней нет
<em>// PascalABC.NET 3.3, сборка 1540 от 16.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Введите двухзначное натуральное число:');
if (n div 10).IsEven and (n mod 10).IsEven then Writeln('Да')
else Writeln('Нет')
end.
<u>Пример</u>
Введите двухзначное натуральное число: 28
Да
Операционная система или ОС - это п<span>акет программ, управляющий работой компьютера и обеспечивающий взаимодействие между человеком и компьютером.</span>
