А Марату нарисовать параллелепипед в программе SketchUp, перечислите инструменты для его создания
В) Установите правильную последовательность рисования параллелепипеда.
1.Тянуть верх
2.Растягиваем в нужную сторону прямоугольник
3.Нажать стартовую точку (первый угол прямоугольника)
4.На клавиатуре набрать «50cm» и нажать на «Enter»
5.На клавиатуре набрать «30cm;40cm» и нажать на «Enter»
6.Выбрать инструмент «фигура», выбрать форму «Прямоугольник»
7.Выбрать инструмент «Вдавить/Вытянуть»
8.Нажать на основание
s,s1:string;
a:array[1..100] of string;
n,i,j,k:byte;
begin
writeln('Введите текст из слов, разделенных пробелами');
readln(s);
s:=' '+s+' ';
n:=length(s);
i:=2;k:=0;while i<=n do
if (s[i]<>' ')and (s[i-1]=' ') then
begin k:=k+1;
j:=i;
s1:='';
while (j<=n) and (s[j]<>' ') do
begin
s1:=s1+s[j];
j:=j+1;
end;
a[k]:=s1;
i:=i+length(s1);
end
else i:=i+1;
for i:=1 to k-1 do
for j:=i+1 to k do
if a[i]>a[j] then
begin s1:=a[i];
a[i]:=a[j];
a[j]:=s1
end;
writeln('Слова текста в алфавитном порядке:');
for i:=1 to k do
writeln(a[i]);
end.
var
A, B, C, F: boolean;
i, j, k: integer;
begin
for i := 0 to 1 do
for j := 0 to 1 do
for k := 0 to 1 do
begin
A := (i = 1); B := (j = 1); C := (k = 1);
F := ((A and B) and C) = (A and (B and C));
Writeln('A=', A, ', B=', B, ', C=', C, ', результат сравнения:', F)
end
end.
Результат выполнения программы:
A=False, B=False, C=False, результат сравнения:True
A=False, B=False, C=True, результат сравнения:True
A=False, B=True, C=False, результат сравнения:True
A=False, B=True, C=True, результат сравнения:True
A=True, B=False, C=False, результат сравнения:True
A=True, B=False, C=True, результат сравнения:True
A=True, B=True, C=False, результат сравнения:True
A=True, B=True, C=True, результат сравнения:True
Задание 2.
var
a, b, c: integer;
begin
for a := 1 to 9 do
for b := 0 to 9 do
for c := 0 to 9 do
if sqr(10 * a + b) - sqr(c) = 100 * a + 10 * b + c then Writeln(a, b, c)
end.
Результат выполнения программы:
100
147