Простой калькулятор на pascal
Pascal
//////////
var
a, b:Integer;
begin
writeln('Введите первое число');
readln(a);
writeln('Введите второе число');
readln(b);
writeln('Ваш результат сложения:', a + b);
writeln('Ваш результат вычитания:', a - b);
writeln('Ваш результат умножения:', a * b);
writeln('Ваш результат деления:', a / b);
end.
Const
nn=50; { максимально возможное кол-во строк }
mm=50; { максимально возможное кол-во столбцов }
var
a:array[1..nn,1..mm] of integer;
i,j,m,n,imax,t:integer;
begin
Write('Количество строк в массиве: '); Read(n);
Write('Количество столбцов в массиве: '); Read(m);
Writeln('Вводите элементы массива');
for i:=1 to n do
for j:=1 to m do Read(a[i,j]);
for j:=1 to m do begin
imax:=1;
for i:=2 to n do
if a[i,j]>a[imax,j] then imax:=i;
if i<>1 then begin
t:=a[1,j]; a[1,j]:=a[imax,j]; a[imax,j]:=t
end
end;
Writeln('Результат');
for i:=1 to n do begin
for j:=1 to m do Write(a[i,j]:3);
Writeln
end
end.
Если не использовать дополнительных переменных(для чисел),то:
1 задание 1000кб 1500/75=20*50=1000
но я не математик :)
1) (а)100101100 (2); 454 (8); 12C (16);
(б)101110111 (2); 567 (8); 177 (16);
2) (a)756, 1; (б) 756, 12;
3)756 + 1 + 756 + 12 = 1525( в десятичной)
10111110101(в двоичной)
5F5(в шестнадцатеричной)
Если нужно и с числами из первого пункта, то:
300+375+756+1+756+12=2200 (10)
100010011000 (2)
898 (16)