М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Dyadya11
Dyadya11
23.07.2021 06:19 •  Информатика

Даны три целых числа m, n, k. проверьте, является ли, k остатком от деления m на n. ответ дать в текстовой форме.

👇
Ответ:
Ivanpomogite228
Ivanpomogite228
23.07.2021
Var  m,n,k:integer;
begin
write('Введите m,n,k: ');
readln(m,n,k);
if m mod n=k then writeln('Да, является') else writeln('Нет, не является');
end.
4,7(22 оценок)
Открыть все ответы
Ответ:
alinkaaa888
alinkaaa888
23.07.2021
Количество слогов считаем по количеству гласных букв в слове.

Program pr;
uses crt;

var str,s: string; 
a,i,j,len,k,kslog: byte;      

Begin 
Writeln('Введите предложение'); 
readln(str);   
Writeln('Введите кол-во слогов'); 
readln(k);   
Writeln('Слова с ',k,' слогами:'); 
Writeln;   

len:=length(str); 
a:=0; 
kslog:=0; 

for i:=1 to len do     
            Begin           
                   if (str[i] = ' ')   then         
                        Begin         
                           s:=copy(str,i+1,a);                   
                 
                           for j:=1 to length(s) do           
                           Begin             
                           if s[j] in ['А','О','У','Э','Ы','Я','Ё','Ю','Е','И','а','о','у','э','ы','я','ё','ю','е','и'] then                                                    inc(kslog);           
                           end;                           
                   if (k=kslog) then Writeln(s);               
                   kslog:=0;               
                   a:=0;         
                      end         
                   else  a:=a+1;     
             end;           

Writeln;     
Writeln('Для завершения программы нажмите Enter');     
readln;      
end.      
4,7(52 оценок)
Ответ:
Ivan21101
Ivan21101
23.07.2021

1) Какое число будет выведено на экран после выполнения этого фрагмента программы?

write(1);

for i:=2 to 3 do  цикл будет работать ровно 2 раза

write(i); тут получается с начала выведется число 2 потом 3

ответ 3

2) Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?

a:=2;

for i:=0 to 2 do Цикл будет работать 3 раза

begin

a:=a+i 2+0=2 2+1=3 3+2=5

end;

ответ 5

3) Чему будет равно значение целой переменной «a» после выполнения этого фрагмента программы?

a:=10;

for i:=1 to 3 do Цикл будет работать 3 раза

begin

a:=a-1 10-1=9 9-2=7 7-3=4

end;

ответ 4

Объяснение:

4,4(56 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ