<h2><u>if5 </u></h2>
program raf105;
uses robot;
begin
task('if5');
if (wallfromdown) or (wallfromup)
then begin left; paint; right; right; paint; left;
end;
if (wallfromleft) or (wallfromright)
then begin up; paint; down; down; paint; up;
end;
end.
<h2><u>if6 </u></h2>
program raf105;
uses robot;
begin
task('if6');
up;
if cellispainted
then begin down; down; paint; end
else begin down; down;
if cellispainted
then begin up; up; paint; end
else begin up; left;
if cellispainted
then begin right; right; paint; end
else paint;
end;
end;
end.
<h2><u>if7 </u></h2>
program raf105;
uses robot;
begin
task('if7');
if wallfromright and wallfromdown
then begin up; left; paint; end;
if wallfromleft and wallfromdown
then begin up; right; paint; end;
if wallfromup and wallfromleft
then begin right; down; paint; end;
if wallfromup and wallfromright
then begin down; left; paint; end
end.
Program z1;
var i,n:integer;
a:array [1..100] of integer;
begin
readln (n);
for i:= 1 to 4 do
begin
readln (A[I] );
end;
for i := 1 to 4 do
begin
If A [i] > n then writeln (A [i]);
end;readln;end.
1)1 (т.к программа выводит наименьшую температуру)
2)7 (т.к программа требует выведения количества дней, в которых температура была меньше или равна 15 градусов)
<h3>PascalABC.NET 3.4.2, сборка 1826 от 07.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var x: int64;
Readln(x);
Format('{0:#0 000 00 0}', x).Println
end.
Ответ:
1. 22
2. 19
3. 25
Объяснение:
Текстовые файлы: doc, txt, rtf
Видео-файлы: avi
Графические файлы: bmp
1. Графические файлы в папке Книги и во всех вложенных в неё папках
3 + 5 + 0 + 0 + 9 + 4 + 1 = 22 файла
2. Видео-файлы в папке Учебники и во всех вложенных в неё папках
4 + 12 + 3 = 19 файлов
3. Текстовые файлы в папке Романы и во всех вложенных в неё папках
5 + 0 + 4 + 3 + 0 + 3 + 6 + 0 + 4 = 25 файлов