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

2. Начертите в тетради блок-схему вычисления площади параллелограмма S по стороне аи высоте һ. Значения а и һ- это исходные данные, их требуется ввести,
S- результат работы алгоритма, его требуется вывести
3. Начертите в тетради блок-схему решения уравнения ax + b = 0. Значения аир - это исходные
данные, их требуется ввести, х- результат работы алгоритма, его требуется вывести

👇
Ответ:
KrolKrosh
KrolKrosh
08.12.2021

1. так напишу:

program s_parallelogramm;

var

a,h,s: real;

begin

write('Основание = '); readln(a);

write('Высота = '); read(h);

if ((a=0) or (a<0)) or ((h=0) or (h<0)) then writeln('Ошибка! Значения основания и высоты должно быть натуральными числами')

else

begin

s:=a*h;

writeln('Площадь (S) параллелограмма = ', s);

end;

end.

2) //PascalABC.Net

//NaaMan

var

a,b : real;

begin

write('Введите А и В: ');

readln(a,b);

if (a=0) then

writeln('Корень отсутствует')

else

writeln('Корень ', -b / a)

end.

4,6(10 оценок)
Открыть все ответы
Ответ:
ruzhejnickovan
ruzhejnickovan
08.12.2021

python

13)

for i in range(48):

 if i % 3 == 0:

   print(i)

 elif i % 2 == 0:

   print(i)

 elif i % 7 == 0:

   print(i)

 elif i % 3 == 2:

   print(i)

 elif i % 5 == 3:

   print(i)

14)

from math import floor

for i in range(30, 3000):

 if i / 5 == floor(i / 5) and i / 7 != floor(i / 7):

   print(i)

15)

amount = 0

new = 1000

day = 0

while amount < 30000:

 amount += new

 new *= 2

 day += 1

print(day)

16)

from math import floor

simple = True

number = int(input('Введите число: '))

for i in range(2, number):

 if number / i == floor(number / i):

   simple = False

   break

if simple:

 print('простое')

else:

 print('не простое')

17)

from math import floor

N = int(input('Введите N: '))

M = int(input('Введите M: '))

number = max(N, M)

while True:

 if number / N == floor(number / N) and number / M == floor(number / M):

   print(number)

   break

 else:

   number += 1

18)

from math import floor

for i in [int(i) for i in input('Введите  числа через пробел: ').split()]:

 if i / 4 == floor(i / 4) and i / 7 == floor(i / 7):

   print(i)

19)

number = int(input('Введите число: '))

if number**2 > 18:

 for i in range(number+1, number+11):

   print(i**2)

else:

 print(number)

20)

age = input('Введите возраст: ')

if age < 6:

 print('дошкольник')

 #я в школу пошел в 6 лет

elif 6 <= age < 18:

 print('школьник')

 #закончу школу в 17 лет

elif 18 <= age < 58:

 print('работник')

elif age >= 58:

 print('пенсионер')

 #у нас в Украине в 2017 году пенсионный возраст для женщин составляет 58 лет

#написал эти коментарии чтоб было понятно почему именно эти цифры

21)

from math import floor

number = int(input('Введите число: '))

for i in range(2, number):

 simple = True

 for z in range(2, i):

   if i / z == floor(i / z):

     simple = False

     break

 if simple:

   print(i)

4,6(86 оценок)
Ответ:
Den3801
Den3801
08.12.2021
Type
 ta=array[1..10] of integer;

var f:text;
s:string;
i,k:integer;
ar:ta;

procedure change(var ar:ta; i:integer; var k:integer);
begin;
if (ar[i]>5) and (ar[i]<10) then
 begin;
  ar[i]:=100;
   inc(k);
 end;
end;

begin;
randomize;
k:=0;
writeln('First array:');
for i:=1 to 10 do
 begin;
  ar[i]:=random(30);
  write(ar[i]:4);
  change(ar,i,k);
 end;
assign(f,'text.txt');
 rewrite(f);
  writeln(f,'Final array:');
   for i:=1 to 10 do
    write(f,ar[i]:4);
     writeln(f,' ');
      writeln(f,'Changes:',k);
 close(f);
end.
4,7(42 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ