<span>var
</span><span><span> a,b,c:</span>integer;
</span><span><span> begin
</span><span> read(a,b,c);</span>
</span><span> writeln(a,'+',b,'+',c,'=',a+b+c);
</span><span> writeln(a,'*',b,'*',c,'=',a*b*c);
</span><span> writeln('(',a,'+',b,'+',c,')/3=',(a+b+c)/3:4:3);
</span><span><span> end.</span></span>
Английский алфавит нужно вспомнить! ...EFGHIJKLMNOPQRS...
В формуле =(K$12+S42)*5 используется относительная (S42) и смешанная (K$12) адресация. Ячейка M8 расположена на 3 строки ниже и на 3 столбца левее ячейки P5, значит адрес K$12 был получен из адреса H$12, а адрес S42 - из адреса P45.
Итак, в ячейке M8 была формула =(H$12+P45)*5
ну я точно не помню вроде кисть, маркер, карандаш, заливка, геометрические фигуры, прямые, пунктирные линии, краски ( ну эти цвета ) и все вроде. Я давно рисовала, еще в 2003, а вообще если в 2007 или в 2010 то там появляются новые. Это Paint
uses crt;
var a:array[1..100,1..100] of integer;
n,m,s:integer;
begin
clrscr;
randomize;
write('n='); read(n);
write('m='); read(m);
for n:=1 to n do
for m:=1 to m do
a[n,m]:=random(100);
writeln('massiv:');
for n:=1 to n do
begin
for m:=1 to m do
write(a[n,m],' ');
writeln;
end;
for n:=1 to n do
for m:=1 to m do
begin
if (a[n,m] mod 5 =0)and (a[n,m] mod 3<>0) then
begin
s:=n;
write('stroka ',s,'; ');
end;
end;
end.
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var k:=a.Where(t->t mod 4=0).Count;
if k>0 then Writeln('Кол-во элементов, делящихся на 4, равно ',k)
else Writeln('Таковых нет')
end.
<u>Пример</u>
n= 13
-26 -4 -41 23 8 -14 29 2 38 -9 32 4 12
Кол-во элементов, делящихся на 4, равно 5