A присвоил себе 1
b также присвоил себе 1
a>5 - неверно, значит идем по стрелки где "нет"
b:=a+b(1+1) - b присваивает себе ответ и становиться равным 2
a:=a+1(1+1) так же как с b
b:=-a+b(-2+2)=0
Идем по стрелки, помним что a=2, но a все равно меньше 5, значит повторяем процесс:
b:=2+0=2
a:=2+1=3
b:=-3+0=-3
И опять повторяем:
b:=3+(-3)=0
a:=3+1=4
b:=-4+0=-4
И опять:
b:=4+(-4)=0
a:=4+1=5
b:=-5+0=-5
И это последний раз:
b:=5+(-5)=0
a:=5+1=6
b:=-6+0=-6
Теперь a>5, значит преходим по стрелки "да"
b:=-6
Конец.
Не знаю как можно сделать проще.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
var s:=ReadlnString('>');
Writeln(RegEx.Replace(s,'0{2,}','0'))
end.
<u><em>Тестовое решение</em></u>
> 100x100=10000; 10км=10х1000=10000(м)
10x10=10; 10км=10х10=10(м)
Так?
var c, b:integer; a, v:real;
begin
read(b,c);
a:=30*b/4+c ;
v:=b/a;
writeln(v);
end.
1. Определим количество пикселей в изображении: 64х512=32768
2. Определим количество байт, отводимое под изображение в памяти: 32х1024=32768.
3. Определим количество байт, отводимое для каждого пикселя: 32768/32768=1
4. Переведем байты в биты: 1х8=8
5. Максимально возможное количество цветов в палитре равно максимально возможному числу, которое можно разместить в 8 битах, плюс 1, т.е. два в восьмой степени, что составляет 256.
Ответ: 256 цветов.
//Pascal ABC.NET v3.0 сборка 1111
//"Школьный" вариант, первая блок-схема
Var
a,b,c:integer;
begin
read(a,b,c);
if (a=b) and (b=c) then writeln('=') else
begin;
if a>b then
if a>c then writeln(a);
if b>a then
if b>c then writeln(b);
if c>a then
if c>b then writeln(c);
end;
<span>end.
//Вариант для любителей оккультизма, вторая блок-схема
begin
var se:=ReadArrReal(3);
if se.Sum()/se.Average()=se.Average() then writeln('=') else writeln(se.Max);
end.<span>
Пример ввода:
3
3
3
Пример вывода:
=</span></span>
