Var
i:integer;
c:array [1..15] of integer;
a:array [1..15] of integer;
begin
for i:=1 to 15 do begin
c[i]:=Random (100);
end;
for i:=1 to 15 do begin
if (c[i] mod 2 = 0) then
a[i]:= c[i] div 2
else
a [i]:= c [i] *2;
end;
write ('Массив С: ');
for i:=1 to 15 do begin
write (c [i]);
write (' ');
end;
writeln (' ');
write ('Массив A: ');
for i:=1 to 15 do begin
write (a[i]);
write (' ');
end;
end.
<span>program 123;
uses crt;
var m, n: longint;
k: integer; {счетчик цифр}
begin
clrscr;
{Вводим целое число.}
writeln('Введите N='); readln(n);
{Запоминаем его и счетчику цифр присваиваем начальное значение.}
m:=n;k:=0;
{Пока m<>0 делать цикл.}
while m <>0 do
begin
{"Уменьшаем" число на последнюю цифру, т. е. в 10 раз.}
k:=k+1; m:= m div 10; {Inc(k) }
end;
{Вывод количества цифр.}
writeln('B числе ',n,'- ',k, ' цифр!');
readln;
end.</span>
Существенно различаются
Paint.NET Основан Риком Брюстером ,там есть работа со слоями ,он намного продвинутей обычного paint
А пейнт появился с самой первой версии Windows 1.20 ноября <span>1985</span>
В алфавит языка Паскаль не входит пункт в) Русские строчные и прописные буквы.
<span>Наполним пятилитровую банку и перельем в трехлитровую, у нас останется 2 литра, выливаем их в ведро, потом перельем обратно 3 литра в пятилитровую и наполним ее доверху ну и опять перельем в трехлитровую, у нас опять останется 2 литра их выливаем в ведро. В ведре получилось 4 литра воды</span>