//PascalABC.NET 3.3,сборка 1627 от 27.01.2018

//Внимание! Если программа не работает, обновите версию!
begin

var a:=0;var t:=0;

for var i:=1 to 3 do

begin

if i=3 then

a:=1

else a:=7;

a*=7;

t:=t+a;

end;

t:=t*7;

Writeln('Количество предметов=',t);

end.

Или как в школах учат ->

var a,t:integer;

begin

for var i:=1 to 3 do

begin
a:=0; t:=0;
if i=3 then

a:=1

else a:=7;

a*=7;

t:=t+a;

end;

t:=t*7;

Writeln('Количество предметов=',t);

end.

0 0

4 года назад

Найти максимальный элемент матрицы. pascal abc

Сашка-Барабашка

............................

0 0

4 года назад

Сложить столбиком двоичные числа и сделать проверку: а)10001+11110011 б)1111+1100111 в)111,01+10111,01

Naletchik34 [100]

А =11120012
б=1101222
в=111.01+10111.01=10222.02

0 0

4 года назад

Системы счисления. Помогите, 35 баллов.

Татьяна Лайм [7]

Честно говоря, я пытался решить чисто логическим путём, даже вывел некоторые условия существования примера, но в итоге мне надоело, и я написал программу, которая перебирает все возможные варианты до тех пор, пока не получится равенство.

В общем, основание системы: 7

Само равенство: 43050₇ + 4350₇ = 50430₇

0 0

4 года назад