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

1. слайдтарды сұрыптау режимі қандай мүмкіндік береді? 2. презентацияны көрсетуді қай команданың көмегімен орындауға болады? 3. жаңа слайдты қай команданың көмегімен құруға болады? 4.презентацияның кез келген компонентін баспаға шығару үшін қай команданы орындаймыз? 5. слайдта қандай обьектілер орналастыруға болады? 6. ms power point бағдарламасы үлгітүрдің қандай типтерін ұсынады? 8. ms power point бағдарламасында презентация құрудың қандай тәсілі бар? (қате жауабын көрсет) а) автомазмұн шебері, презентация шаблоны арқылы; ә) бос презентация арқылы; б) программалық тілдер жазу арқылы. 9. ms power point бағдарламасында құжат бейнелеуінің қандай режимдері бар? 10. ms power point бағдарламасын іске қосу жолы:

👇
Открыть все ответы
Ответ:
mukhamedinaguls
mukhamedinaguls
18.05.2020

Общий вид цикла пока:

 

ПОКА <условие> ДЕЛАТЬ <действие>

 

Суть цикла:

Действие выполняется до тех пор, пока условие не станет ложным.

Пример:

А=1

ПОКА А<3  ДЕЛАТЬ А=А+1

 

Цикл закончится, когда переменная А станет равной 3.

 

Если условие изначально ложно, то цикл не выполнится ни разу.

Пример:

А=4

ПОКА  А<3  ДЕЛАТЬ  А=А+1

 

Цикл не выполнится ни разу и значение переменной А не измениться.

 

При составлении цикла ПОКА нужно обязательно следить, чтобы условие рано или поздно стало ложным, иначе цикл будет бесконечно выполняться.

4,5(44 оценок)
Ответ:
flox1998
flox1998
18.05.2020
1)
var a:string;
    i, o: Integer;
    p: Real;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (sqr(o) = p*p*p) then writeln('true')
        else writeln('false');
end.

2)
var a:string;
    i, o, p: Integer;
begin
     readln(o);
     a := inttostr(o);
     for i := 1 to length(a) do
        p := p + strtoint(a[i]);
     if (p mod 3 = 0) then writeln('true')
        else writeln('false');
end.

3)
var a, b, c: real;
begin
     readln(a, b, c);
     if ((a = b) and (b = c)) then writeln('true')
        else writeln('false');
end.

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