Налево,налево,вниз, ,вниз,направо,направо,вверх,вверх,налево,налево,вниз, ,вниз,налево,
итак еще4 раза
//Прога на языке Паскаль:
var a, sum: double;
begin
write ('Введите первоначальную стоимость газеты: ');
readln (a);
sum:=a*50+(1.2*a*150);
write ('Заработок продавца: ', sum);
end.
Program
tapsirmaC;
var
a,b,n,x,p:integer;
input,output:text;
begin
p:=0;
assign(input,'c.in');
assign(output,'c.out');
reset(input);
rewrite(output);
read(input,a,b,n);
for x:= 1 to n do
begin
if a*x mod n = b
then
p:=p+1;
end;
write(output,p);
close(input);
close(output);
end.
1) 287 = 100011111 (3 нуля)
2) 6-я система счисления
4) 13288 = 11001111101000
5) 2038 = 11111110110
6) 12+2х=42
х=15
7) 239 = 2313
Цикл while - делай, пока условие истинно
т.е. пока i <= 9 программа выполняет блок внутри этого цикла в операторных скобках begin .. end;
P=1, i=3:
i (=3) <= 9 ? да => p:=1*(3 div 3)=1*1=1, i:=3+1=4
i (=4) <= 9 ? да => p:=1*(4 div 3)=1*1=1; i:=4+1=5
и т.д. пока верно условие i<=9
P.S. div - деление нацело, т.е. 5 div 2=2, в пятерке содержится 2 раза число два, в ответ идет 2
а вот 5 mod 2 = 1 это деление с остатком