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

Определи тассировочную таблицу, соответствующую данной блок-схеме ​


Определи тассировочную таблицу, соответствующую данной блок-схеме ​

Показать ответ
Ответ:
lewaq
lewaq
09.01.2021 16:30
1)
var x:integer;
begin
read (x);
if (x=12) or (x=1) or (x=2) then writeln ('Зима');
 if (x=3) or (x=4) or (x=5) then writeln ('Весна'); 
 if (x=6) or (x=7) or (x=8) then writeln ('Лето'); 
 if (x=9) or (x=10) or (x=11) then writeln ('Осень'); 
end.
2)
var K,a:integer;
begin
readln(K);
a:=K mod 10;
if (K=11) or(K=12) or (K=13) or (K=14) then writeln ('У меня ',K,' друзей') else
begin
if (a=1) then writeln ('У меня ',K,' друг');
if (a=0) or ((a>=5) and (a<=9)) then writeln ('У меня ',K,' друзей');
if (a>=2) and (a<=4) then writeln ('У меня ',K,' друга');
end;
end.
0,0(0 оценок)
Ответ:
Fhgfvxdf1
Fhgfvxdf1
16.06.2020 08:41
Uses Crt;
Var a,b,i,tek,sum10,sum3:integer;
Procedure TroichSS (te:integer; var sum3:integer);
var m:array[1..10]of integer;
    k,j,su3:integer;
begin
    write(te:4);
    repeat
        inc(k); m[k]:=te mod 3; te:=te div 3;
    until te<3;
    inc(k); m[k]:=te mod 3;
    for j:=k downto 1 do
        begin su3:=su3+m[j]; write(m[j]:3) end;
    write(' su3=',su3);
    sum3:=su3; su3:=0; k:=0;
end;
Procedure DesiatSS (te:integer; var sum10:integer);
var m:array[1..10]of integer;
    k,j,su10:integer;
begin
    write(te:4);
    repeat
        inc(k); m[k]:=te mod 10; te:=te div 10;
    until te<10;
    inc(k); m[k]:=te mod 10;
    for j:=k downto 1 do
        begin su10:=su10+m[j]; write(m[j]:3); end;
    writeln(' su10=',su10);
    sum10:=su10; su10:=0; k:=0;
end;
Begin
//Задание интервала [a; b]
    a:=1; b:=1000;
    writeln('Интервале [a; b]',a:4,b:4);
//Сумма цифр троичных и десятичных чисел
    for i:=a to b do
    begin
        TroichSS(i,sum3); DesiatSS(i,sum10);
        if sum3=sum10 then
            begin writeln('Э в р и к а!'); delay(5000); end;
    end;
    writeln('К о н е ц.');
End.

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