//PascalGUI
var
a:integer;
begin
readln(a);
case a of
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье')
else writeln('Не день недели');
end;
end.
Пример ввода:
1
Пример вывода:
Понедельник
А)использовать Черепаха
алг Флажок
нач
вперёд (80)
вправо (90)
вперёд (20)
вправо (45)
вперёд (28)
вправо (90)
вперёд (28)
вправо (45)
вперёд (20)
кон
б)использовать Черепаха
алг Флажок
нач
влево (60)
вперёд (45)
вправо (120)
вперёд (45)
вправо (120)
вперёд (22)
влево (90)
назад (38)
вперёд (38)
вправо (90)
вперёд (40)
кон
В таких задачах, где нужно построить зеркально флажок, замок и т.п. нужно вправо делать влево, а влево делать вправо, но есть хитрость, ни в коем случае нельзя трогать вперёд,назад.
2, спуск два раза до диска С, один подъем до Охота
Системный блок
периферийные устройства
системный блок
микропроцессор
память
клавиатура
сканер
монитор
принтер
Маловато баллов за такую задачку.
Var z:array[1..16] of integer; k:array[1..16] of real; i,p,s:integer; max:real;
Begin
randomize;
for i:=1 to 16 do z[i]:=random(101);
write('Z=');
for i:=1 to 16 do write(z[i],' ');
writeln;
writeln;
p:=0;
s:=0;
for i:=1 to 16 do
if (i mod 2)<>0 then
begin
s:=s+z[i];
p:=p*z[i];
end;
writeln('P=',p);
writeln('S=',s);
writeln;
for i:=1 to 16 do k[i]:=z[i]*<span>exp(ln(i*z[i])/3);
</span>write('K=');
for i:=1 to 16 do write(k[i]:0:0,' ');<span>
max:=k[1];
for i:=1 to 16 do
if k[i]>max then max:=k[i];
writeln;
writeln('max=',max:0:0);
for i:=1 to 16 do
if k[i]=max then k[i]:=0;
write('K=');
for i:=1 to 16 do write(k[i]:0:0,' ');
End.</span>