#include <iostream>#include <cstdlib>using namespace std;
int main(){ int a, b, c = 0; cin >> a >> b; if (abs(a) > abs(b)) swap (a, b); for (int i = 0; i < abs(a); i++) { if ((a >= 0 && b >= 0) || (a < 0 && b < 0)) c += abs(b); else c -= abs(b); } cout << c; return 0;}
var
i, n:integer;
price:real;
begin
n := 20;
price := 20.4;
for i := 1 to n do
writeln('Стоимость ', i:3, ' ед. товара составляет ', price * i:8:2, ' руб.');
end.
//вторая задача
var
i, f, n:integer;
begin
f := 453;
n := 10;
writeln('фунты граммы');
for i := 1 to n do
writeln(' ', i:2, i * f :11);
end.
//третья задача
var
i, n:integer;
k:real;
begin
n := 20;
writeln('Введите курс '); readln(k);
writeln('доллары рубли');
for i := 1 to n do
writeln(' ', i:2, i * k:13:2);
end.
8 килобайт-8000 байт, 1 мегабайт- 1000000 байт, дальше там не получится
Var
i,j,s:integer;
a:array[1..10,1..10]of integer;
begin
writeln('Исходный массив:');
for i:=1 to 10 do
begin
for j:=1 to 10 do
begin
a[i,j]:=random(-10,10);
if (a[i,j]=0) and (i=j) then s:=s+1;
write(a[i,j]:3)
end;
writeln
end;
writeln('Число нулей на главной диагонали: ',s)
<span>end.</span>
Вкусовая - Вкус
Обонятельная - Запах
Осязательная - Осязания