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

Поместятся ли два квадрата со сторонами a см внутри прямоугольника с шириной x см и длинной y см. написать на паскале, .

👇
Ответ:
slavikabdulla
slavikabdulla
27.04.2021
Program n1;
var a,x,y,sk,sp:real;

begin 
writeln('storona kvadrata');
readln(a);
writeln('storonbl pryamoygol'nika');
readln(x,y);
sk:=a*a+a*a;
sp:=x*y;
if sk<=sp then
writeln('pomestitsya');
else
writeln('ne pomestitsya')
end;

может ковычки где не надо поставил, в программе увидишь, просто не имею паскаля на компьютере, писал прямо сюда, должно быть верно. гуру сайта проверят.
4,4(27 оценок)
Открыть все ответы
Ответ:
Alma88
Alma88
27.04.2021

Итак, вот ответы:

1) 3. небольших общественных веб-сайтов.

2) 4. текстовом процессоре Word.

3) 3. веб-дизайн.

4) 4. html.

5) 1. структуру и содержание.

6) 2. не пишите слишком длинных текстов. текст разбивайте на небольшие абзацы, отделяя их друг от друга пустыми строками.

4. названия пунктов меню делайте краткими; недопустимо     растягивание названия пункта на несколько строк.

7) 4. шаблон.

все ответы на 100% верны, можете не волноваться. сама только, что тест и решила поделиться с вами правильными ответами. была рада удачи на экзаменах.)

4,5(76 оценок)
Ответ:
Hyun79
Hyun79
27.04.2021
ответ: 9504 

var steps := 12; // За кол-во ходов
var Xend  := 6; // В точку с координатой X
var Yend  := 4; // ... и Y

var vars := 0; procedure Find(step, X, Y : Integer);

begin 
    if step = 0 then   
        vars += (X = Xend) and (Y = Yend) ? 1 : 0
    else   
        begin     
             Find(step - 1, X + 1, Y    );     
             Find(step - 1, X - 1, Y    );     
             Find(step - 1, X    , Y + 1);     
             Find(step - 1, X    , Y - 1);   
        end;
end; 
begin 
     Find(steps, 0, 0); 
     Print(vars);
end.
4,6(31 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ