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

Ялетаю, я кусаюсь и я всем . буквы переставь и я стану частью коробля

👇
Ответ:
1ирочка1
1ирочка1
06.02.2021
ответ: комар - корма
4,4(81 оценок)
Ответ:
Сорим
Сорим
06.02.2021
Отгадка Комар
А часть коробля:корма
4,7(91 оценок)
Открыть все ответы
Ответ:
IBRAGIM058
IBRAGIM058
06.02.2021
Program proga;
var str1,str2,str3:string;
input:Text;
begin
Assign(input,'file.txt');
reset(input);
readln(input,str1);
 readln(input,str2);
 readln(input,str3);
if(length(str1)>length(str3)and length(str3)) then
writeln('1 строка самая длинная');
else if length(str2)>length(str3) and length(str1) then
 writeln('2 строка самая длинная');
 else if length(str3)>length(str1) and length(str2) then
writeln('3 строка самая длинная');
close(input);
end.
P.S файл со строками надо предварительно создать в папке с Exe файлом программы
4,5(91 оценок)
Ответ:
уютка
уютка
06.02.2021
Для початку визначаємо площу острова на якому мешкають Робінзони: Plostr:=K*K;. Друга дія, що повинна виконуватись – наявність вільного місця на острові VSostr:=Plostr-S*P, і на останок, якщо вільне місце буде то розраховуємо кількість Робінзонів яка б могла розміститися на острові у випадку аварії корабля поблизу острова: KP:=VSostr div P. Визначаємо типи змінних. Так як за умовою задачі сторона острова та площі мають бути цілими числами більшими за нуль але не обмеженими по величині виберемо для них тип integer, кількість людей, що проживають на острові також число ціле і воно може бути більше ніж 255(тип byte) то залишається обрати також тип integer. В результаті ми також отримуємо числа цілі але можливо там будуть і від’ємні значення тому тип змінних визначаємо як integer.Var K, P, S, Plostr, VSostr, KP:integer;
Begin
Write (‘введіть кількість проживаючих на острові Робінзонів:’);
Readln(P);
Write (‘введіть довжину острова у метрах:’);
Readln(K);
Write (‘введіть площу, яка визначена законом для проживання одного Робінзона:’);
Readln(S);
Plostr:=K*K;
VSostr:=Plostr-S*P;
If VSostr < 0 then write(‘Права Робінзонів порушені, так як площі острова не достатньо’)
Else
Begin
If Vostr=0 then write (‘На острові місця вистачить тільки для тих Робінзонів, які там вже проживають’)
Else 
Begin
KP:=VSostr div P;
If KP>0 then write(‘ На острові можуть бути поселені ще ’,KP,’ Робінзон(ів)’)
Else write(‘На острові місця вистачить тільки для тих Робінзонів, які там вже проживають ’);
End;
End;
Readln;
End.
4,8(31 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ