Var a,b,k,m:integer;
begin
write('A, B, K: ');
readln(a,b,k);
m:=2*(a+b)*k;
writeln('m = ',m);
end.
Пример:
A, B, K: 3 4 200
m = 2800
Привет)вот ответ)спасибо не забудь!
7.5 * 1024 = 7680 байт - всего.
7680/7680 = 1 байт на символ.
1 байт = 8 бит.
С помощью 8-ми бит можно закодировать 28<span> символов.</span>
<span>Отсюда мощность алфавита: 256 символов.</span>
Program one;var a,b,c,d,e,g:integer;beginwriteln('Введите цену помидор за один килограмм (в рублях)');readln(a);writeln('Введите вес помидор');readln(b);writeln('Стоимость покупки: ',a*b,' руб');writeln('Введите цену огурцов за один килограмм (в рублях)');readln(c);writeln('Введите вес огурцов');readln(d);writeln('Стоимость покупки: ',c*d,' руб');writeln('Введите цену яблок за один килограмм (в рублях)');readln(e);writeln('Введите вес яблок');readln(g);writeln('Стоимость покупки: ',e*g,' руб');end.
<em>// PascalABC.NET 3.2, сборка 1325 от 19.10.2016</em>
begin
var a:=MatrixRandom(10,10,-10,10);
var sp:=0; var sn:=0;
for var i:=0 to 9 do begin
for var j:=0 to 9 do begin
Write(a[i,j]:4);
if a[i,j]>0 then Inc(sp)
else
if a[i,j]<0 then Inc(sn)
end;
Writeln
end;
Writeln('Положительных ',sp,', отрицательных ',sn)
end.
Пример
-2 4 5 10 3 7 -8 -1 -5 -9
-2 6 -3 8 10 9 -8 3 9 9
2 10 3 5 10 1 -9 4 -7 3
9 1 -3 -5 7 5 2 0 -7 3
2 1 10 -8 -8 6 -8 -3 -5 0
-2 -10 -7 9 -9 -1 -9 10 -10 -8
6 -1 -4 3 -7 7 -1 -8 -10 -5
-3 2 0 -5 -4 -10 -10 0 3 -7
-1 5 -2 4 -6 9 -3 -1 -7 -2
3 2 0 -10 8 -7 -5 -3 10 -5
Положительных 44, отрицательных 51