В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
MGap58
MGap58
16.09.2021 17:11 •  Информатика

1) Тизмени толтуруу генераторун колдонуп, 1ден 30га чейинки сандар- дын тизмесин түзгүлө. Экранга а массивиндеги жуп жана так сандар-
дын санын чыгаргыла.(программирование)​

Показать ответ
Ответ:
Korish2005
Korish2005
13.09.2022 13:23

Запишу на обычном языке, Паскаль не помню уже.

А - первое число. Б - второе число.

Если А больше Б и Б div 5=0 тогда выводится на экран (' Б наименьшее число и нацело делится на 5')

Если Б больше А и А div 5=0 тогда выводится на экран (' А наименьшее число и нацело делится на 5')

 

Точно не помню как выглядит это в Паскале, но что-то типо такого

If A<B and A div 5=0 then writeln ('А наименьшее число и нацело делится на 5');

If B<A and B div 5=0 then writeln ('Б наименьшее число и нацело делится на 5');

0,0(0 оценок)
Ответ:
Zxc1asdqwe
Zxc1asdqwe
30.09.2020 00:37
var a: array[1..2,1..4] of real;
    b,c: string; 
    d,x,y: real;
    i,j: integer;
begin
   b:='ABCD';  c:='xy';
   writeln('трапеция ABCD');
   for i:=1 to 4 do
   begin
     writeln('координаты точки ',b[i],': ');
     for j:=1 to 2 do
     begin
       write('   ',c[j],i,' = ');
       readln(a[j,i]);
     end;  
   end;  
   x:=(a[1,3]-a[1,2]+a[1,4]-a[1,1])/2;
   y:=(a[2,3]-a[2,2]+a[2,4]-a[2,1])/2;
   d:=sqrt(x*x+y*y);
   writeln('длина средней линии:  ',d:5:2);
end.

ввод - вывод

трапеция ABCD
координаты точки A: 
   x1 = 3
   y1 = 2
координаты точки B: 
   x2 = 5
   y2 = 5
координаты точки C: 
   x3 = 9
   y3 = 5
координаты точки D: 
   x4 = 10
   y4 = 2
длина средней линии:   5.50
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота