В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
elenabuda85
elenabuda85
31.01.2022 06:02 •  Информатика

Как узнать размер созданной фигуры в SketchUp?​

Показать ответ
Ответ:
nova4ka
nova4ka
08.01.2023 17:29
Program Loto;
Uses Crt;
Const lt = 49; (* количество шаров в лототроне *)
shar = 6; (* количество выигрышных шаров*)
Var lott,vyb : array [1..shar] of integer;
i, j, nom, k : integer;
m:set of byte;
Begin
randomize;
m:=[];
for i:=1 to shar do
begin
repeat
nom:=1+random(lt);
until not(nom in m);
lott[i]:=nom;
m:=m+[nom];
end;
writeln('Выберите шаров от 1 до 6 ',lt);
m:=[];
begin
repeat
write('nom',i,'=');
readln(nom);
until (nom in [1..lt])and not(nom in m);
vyb[i]:=nom;
m:=m+[nom];
end;
clrscr;
writeln('Номера шаров в лототроне');
for i:=1 to shar do write(lott[i]:3);
writeln;
writeln('Выбранные шары');
for i:=1 to shar do
write(vyb[i]:3);
writeln;
write('Совпавшие шары: ');
k:=0;
for i:=1 to shar do
for j:=1 to shar do
if lott[i]=vyb[j] then
begin
k:=k+1;
write(lott[i]:3);
end;
if k=0 then write('- нет')
else write('  Их количество=',k)
end.
0,0(0 оценок)
Ответ:
ValeraSmirnov213123
ValeraSmirnov213123
17.02.2020 23:51

const s='Каждый охотник желает знать где сидит фазан';

var s1,sub:string;

i,j,m,n:integer;

a:array[1..100] of string;

begin

i:=0;n:=0;

repeat

inc(i);

if (s[i]=' ')or(s[i]=',') then begin

inc(n);

a[n]:=sub;

sub:='';

end

else sub:=sub+s[i];

until i=length(s);

inc(n);

a[n]:=sub;

writeln;

for i:=1 to n do

begin

if i mod 4 =1 then writeln(a[i]);

if i mod 4 =2 then writeln(' ',a[i]);

if i mod 4 =3 then writeln(' ',a[i]);

if i mod 4 =0 then begin

writeln(' ',a[i]);

writeln;

end;

end;

end.

Объяснение:

Возможности протестировать нет, но надеюсь работает. Питон не знаю, но возможно

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота