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

Составить алгоритм что бы действие повторялось 5 раз

👇
Ответ:
Aaastraxan
Aaastraxan
05.10.2022
Для повторений берётся цикл.
Например в паскале
for i:=1 to 5 do действие;
4,6(27 оценок)
Открыть все ответы
Ответ:
89109301839
89109301839
05.10.2022

Тема сьогоднішньої статті – довіра клієнта. Почнемо з базових понять. Віра – це усвідомлення людиною чогось неочевидного, не перевіреного точно, такого, що не сприймається органами чуття. Це присвоєння відомостям, що містяться у свідомості (душі) людини, статусу «істинно» без точного знання, чи справді є достовірними та правдивими ці відомості.

Наприклад, багато хто вірять в існування ангелів або рентгенівських променів, хоча ніколи їх не бачив і не відчував їх присутності або впливу.

Объяснение:

4,5(97 оценок)
Ответ:
kazinka9
kazinka9
05.10.2022
Задача 1
var
x,y:integer;
begin
  writeln('Введите х');
  readln(x);
  writeln('Введите y');
  readln(y);
  if x<y then writeln('Меньшее: ',x) else
  if x>y then writeln('Меньшее: ',y) else
  if x=y then writeln('Числа равны')
end.

задача 2
var
x,y:integer;
begin
  writeln('Введите первое число');
  readln(x);
  writeln('Введите второе число');
  readln(y);
  if y=0 then writeln('Второе число равно 0. Деление невозможно!') else
  writeln(x,'/',y,'=',x/y);
end.

задача 3
var
s,name:string;
begin
  writeln('Введите ваше имя');
  readln(name);
  writeln('Введите строку');
  readln(s);
  if s=name then writeln('Привет!') else
  writeln('Здравствуйте!');
end.

задача 4
var
x:integer;
begin
  writeln('Введите число');
  readln(x);
  if (x mod 2)=0 then writeln('Четное') else writeln('Нечетное')
end.

задача 5
var
x:string;
i:integer;
begin
  writeln('Введите строку');
  readln(x);
  writeln('Введите номер символа');
  readln(i);
  if i > length(x) then writeln('Нет символа!') else writeln(x[i])
end.

задача 6
var
x,y:integer;
begin
  writeln('Количество яблок:');
  readln(x);
  writeln('Количество апельсинов:');
  readln(y);
  if (x*100)>(y*150) then writeln('Берите яблоки')
  else
  if (x*100)<(y*150) then writeln('Берите апельсины')
  else
  if (x*100)=(y*150) then writeln('Вес яблок и апельсинов одинаковый')
end.
4,6(26 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ