a:= 1
b:= 4
a:= 2*1 + 3*4 = 2 + 12 = 14
b:= 14/2*4 = 7*4 = 28
201 258 7DA Советую скачать двоичный калькулятор)
var a,b,t:longint;
begin
readln(a,b);
if(a<b) then a:=a*5 else if (b<a) then begin t:=a; a:=b; b:=t; end;
writeln('a = ',a);
writeln('b = ', b);
end.
Мы ежедневно сталкиваемся с информацией, например читая газету, смотря фильм или телевизор, или просто слушая музыку. Книги - тоже информация. Даже благодаря нашему зрению и слуху мы получаем информацию об окружающем нас мире.
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
begin
var t:=1000;
var k:integer;
repeat
k:=ReadInteger('->');
t-=k
until t<0;
Writeln('Всё...')
end.
<u>Пример</u>
-> 453
-> 216
-> 39
-> 64
-> 312
Всё...
<em>Решение для "древних паскалей"</em>
var
k,t:integer;
begin
t:=1000;
repeat
Write('->'); Read(k);
t:=t-k
until t<0;
Writeln('Всё...')
end.