1) Создать алгоритм жарки яиц для робота 2) Выйти с пешеходного перехода AКS 3) Приведите пример официального или неформального исполнителя. 4) Определите возможную среду для работы «пылесоса». 5) В каком режиме вы разогреваете пищу в микроволновке: программном или в режиме прямого управления? Пусть примеры и ответы на вопросы будут длиннее

👇

Увидеть ответ

Открыть все ответы

Ответ:

322pussy322

04.02.2023

Объяснение:

а = 10 (присваиваем переменной a значение 10)

b = 5 (присваиваем переменной b значение 5)

c = 7 (присваиваем переменной c значение 7)

min = a (присваиваем переменной min значение переменной a, теперь min = 10)

if b < min then min = b (если переменная b меньше переменной min (а это так 5 < 10) то присваиваем min значение переменной b, теперь min = 5)

if c < min then min = c (если переменная c меньше переменной min (а это НЕ так 7 > 5) то присваиваем min значение переменной c, теперь переменная min остаётся без изменений min = 5)

4,5(27 оценок)

Ответ:

karinayackupow

04.02.2023

Задание №1

var r:integer;
begin
writeln('Введите радиус');
read(r);
writeln('Длина окружности = ',2*pi*r);
writeln('Площадь круга = ',pi*sqr(r));
end.

Задание №2

var a,d,n:integer;
begin
writeln('Введите первый член, знаменатель, число членов');
read(a,d,n);
writeln('Cумма членов арифметической прогресси = ', 0.5*n*(2*a+(n-1)*d));
end.

Задание №3

var m,n:integer;
begin
writeln('Введите m и n');
read(m,n);
if m=n then begin
m:=0;
n:=0;
end;
if (m>n) then n:=m
else if n>m then m:=n;
end.

Задание №4

var a,b,c:integer;
begin
writeln('Введите стороны a,b,c');
read(a,b,c);
if (a=b) or (b=c) or (c=a) then writeln('Треугольник равнобедренный')
else writeln('Треугольник неравнобедренный');
end.

Задание №5

var a,b,c:integer;
begin
a:=0;
c:=0;
repeat
writeln('Введите число');
read(b);
if b<0 then a:=a+1;
c:=c+1;
until c=3;
writeln('Количество отрицательных = ',a);
end.

Задание №6

var a,c:integer;
b:real;
begin
writeln('Введите количество часов');
read(a);
c:=a div 3;
b:=power(2, c);
writeln(b);
end.

Задание №7

const
n=10;
var a:array [1..10] of integer;
i,k,s:integer;
begin
writeln('Введите k');
read(k);
writeln('Введите элементы массива');
for i:=1 to n do begin
read(a[i]);
if a[i] mod k =0 then s:=s+a[i];
end;
writeln(s);
end.

4,6(23 оценок)

Это интересно:

Образование-и-коммуникации

09.03.2021

Как титровать: правила и методы...

Кулинария-и-гостеприимство

23.04.2021

Как размораживать рыбу: советы от профессионалов...

Дом-и-сад

27.06.2020

Как очистить домашний вентилятор: простые способы...

Кулинария-и-гостеприимство