асат7
01.06.2023 02:07

1.Яка функція перетворює рядок S в ціле число ? *
IntToStr (Value)
StrToInt (S)
FloatToStr (Value)
StrToFloat (S)
2.var A : Real; B: Integer;В яких операторах правильно організовано введення значень змінних? *
А := StrToFloat(Edit1.Text);
В := StrToInt(Edit1.Text);
А := StrToInt(Edit1.Text);
Edit1.Text := FloatToStr (А);
3.var X, Y: Integer;Чому дорівнює значення Х після виконання послідовності присвоювань: Х := 10; Y := 3*Х; Х := Х + Y; *

4.Для розміщення на формі перемикача потрібно на вкладці Standart двічі клацнути на кнопці... *

TCheckBox
TComboBox
TRadioBox
TRadioButton
5.Яке значення набуває властивість Checked прапорця , якщо прапорець вибрано і позначку прапорця встановлено *
false
true
false або true
жодної
6.Якщо на формі розміщено кілька прапорців, то серед них можна вибрати... *
Один або кілька
тільки один
два
не вибрати жодного
7.Чому дорівнює S після виконання циклу: S := 0; For і := 5 To 7 Do S := S+1; *
4
3
7
5
8.Який загальний вигляд команди циклу з лічильником? *
for <імя змінної>:= <вираз1> to <вираз2> do begin <команди тіла циклу> end;
for <імя змінної>:= <вираз1> to <вираз2> begin <команди тіла циклу> end;
for <імя змінної>:= <вираз1> to <вираз2> do begin <команди тіла циклу> ;
9.Встановіть відповідність між операторами і діями, які вони реалізуютьf := 0; For i := 1 To n Do f := f +і; *
Обчислити суму n перших натуральних чисел
Обчислити факторіал числа n
Обчислити суму n перших парних чисел
Обчислити f = A*n
10.В яких із наведених операторів циклу тіло циклу не виконається жодного разу? *
Х:=10; Whіle Х <= 10 do X := X+1;
Х:=11; Whіle Х <= 10 do X := X+1;
11.Визначте значення S після виконання операторів.X := 0 ; S := 0;Whіle Х<=5 Do begin X := X + 1; S := S + Х; end; *

12.Який алгоритм реалізує програма S := 0; A := 0; n:=0;Whіle n<10 Do begin n:=n+1; A := A+2; S := S+A; end; *
Знайти суму натуральних чисел, кратних 4 і менших або рівних 100
Знайти суму перших десяти непарних чисел
Знайти суму перших десяти парних чисел

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
sashunyakotova
14.06.2020 13:17

Привет

Объяснение:

Качество нашей водопроводной воды, мягко говоря, далеко от международных стандартов. Согласитесь, пить неочищенную воду из-под крана — это экстремальное занятие, которое может обернуться серьезными проблемами со здоровьем. Поэтому покупка хорошего фильтра является первостепенной задачей.

Если вы не любите рисковать своим здоровьем, то наверняка задумываетесь над тем, как выбрать фильтры для воды. Разнообразие предложений на рынке заставит растеряться даже самого смелого.

Мы вам расставить все на свои места и определиться с выбором — в этой статье рассмотрены существующие разновидности фильтрующих при и их характеристики.

А также приведены основные критерии, влияющие на выбор наиболее подходящего фильтра, и рейтинг лучших производителей как отечественных, так и зарубежных. Для лучшего восприятия информации подобраны наглядные схемы и фотоматериалы, экспертные видеорекомендации по выбору.

Страницы фильтров: о чем вообще речь?

Фильтры — параметры, которые сузить список товаров, чтобы было проще выбрать нужный. Этот список в большинстве случаев можно встретить в левой колонке на страницах категорий.

0,0(0 оценок)
Ответ:
oksanaverner00
24.06.2022 16:11
Var a:integer;
  flag:boolean;
begin
  flag:=false;
  write('Введите число ');
  readln(a);
  if a mod 2 = 0 then  begin
    writeln('Число ',a,' делится на 2');
    flag:=true;
  end;
  if a mod 3 = 0 then begin
    writeln('Число ',a,' делится на 3');
    flag:=true;
  end;
  if a mod 4 = 0 then  begin
    writeln('Число ',a,' делится на 4');
    flag:=true;
  end;
  if a mod 5 = 0 then  begin
    writeln('Число ',a,' делится на 5');
    flag:=true;
  end;
  if not flag then writeln('Число ',a,' не делится на 2,3,4,5');
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота