Составить программу написания имени вадим на кумире чертежник

👇

Увидеть ответ

Ответ:

гаагмгмг

19.02.2020

использовать Чертежник

алг

нач

опустить перо

сместиться на вектор (0,10)

сместиться на вектор (4,0)

сместиться на вектор (1,-1)

сместиться на вектор (0,-2)

сместиться на вектор (-3,-2)

сместиться на вектор (3,-2)

сместиться на вектор (0,-2)

сместиться на вектор (-1,-1)

сместиться на вектор (-4,0)

поднять перо

сместиться на вектор (6,0)

опустить перо

сместиться на вектор (4,10)

сместиться на вектор (4,-10)

поднять перо

сместиться на вектор (-2,5)

опустить перо

сместиться на вектор (-4,0)

поднять перо

сместиться на вектор (7,-5)

опустить перо

сместиться на вектор (0,2)

сместиться на вектор (8,0)

сместиться на вектор (0,-2)

поднять перо

сместиться на вектор (-2,2)

опустить перо

сместиться на вектор (0,8)

сместиться на вектор (-4,0)

сместиться на вектор (0,-8)

поднять перо

сместиться на вектор (7,-2)

опустить перо

сместиться на вектор (0,10)

поднять перо

сместиться на вектор (0,-10)

опустить перо

сместиться на вектор (5,10)

сместиться на вектор (0,-10)

поднять перо

сместиться на вектор (1,0)

опустить перо

сместиться на вектор (0,10)

сместиться на вектор (3,-7)

сместиться на вектор (3,7)

сместиться на вектор (0,-10)

поднять перо

кон

4,4(31 оценок)

Открыть все ответы

Ответ:

gei228

19.02.2020

№ 1 Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий: 1) неверно, что 0 < X ≤ 3 и Y>5; 2) X является max(X,Y); 3) X не является min(X,Y); 4) Z является min(X,Y,Z). № 2 Используя логические операции, запишите высказывания, которые являются истинными при выполнении следующих условий: 1) Y не является max(X,Y,Z) и не является min(X,Y,Z); 2) X,Y,Z равны между собой; 3) каждое из чисел X,Y,Z положительно; 4) каждое из чисел X,Y,Z отрицательно.

4,6(14 оценок)

Ответ:

Som777nik

19.02.2020

//Pascal
var
S: string;
i, Count: byte;
begin
write('Введите строку: '); readln(S);
for i := Length(S) downto 1 do
if ((S[i] = '3') or (S[i] = '6') or (S[i] = '9')) then
begin
Count := Count + 1;
Delete(s,i,1);
end;
writeln('Количество цифр кратных трем = ', Count);
writeln('Строка после удаления = ', S);
end.

//FreePascal/Delphi/PascalABC.NET(v3.3.1590)
{$MODE OBJFPC} //В PascalABC.NET можно убрать
uses SysUtils; //В PascalABC.NET можно убрать
var
S: string;
i, Count: byte;
begin
write('Введите строку: '); readln(S);
for i := Length(S) downto 1 do
try
if StrToInt(S[i]) mod 3 = 0 then
begin
Count := Count + 1;
Delete(s,i,1);
end;
except
end;
writeln('Количество цифр кратных трем = ', Count);
writeln('Строка после удаления = ', S);
end.

Напишите, , программу, подсчитывающюю количество цифр во введенной строке кратные 3. после чего удал