var s1,s2:string;
begin
readln(s1);
readln(s2);
if length(s1)=length(s2) then
writeln('Да')
else
writeln('Нет');
end.
1024000 а кбит будет 1024
600000/1024=585,94
ответ:585,9 секунд
// PascalABC.NET 3.3, сборка 1583 от 25.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
Writeln(ReadSeqIntegerWhile(t->t<>0).Max)
end.
Пример
36 102 52 19 212 42 97 72 64 0
212
<span>Задание 3. В очень странной постановке. Вводятся НАТУРАЛЬНЫЕ числа и надо найти сумму ПОЛОЖИТЕЛЬНЫХ. Но ведь ВСЕ натуральные числа положительные...
На всякий случай условие фильтрации положительных поставим. Если не надо - из текста программы надо исключить </span>.Where(x->x>0)
begin
Writeln(ReadSeqInteger(ReadInteger).Where(x->x>0).Sum)
end.
Пример
10
36 102 52 19 212 42 97 72 64 10
706
1 и 5
3
5
2
4
Все вроде так у меня просто по икт 5, но вроде все
Вот задачка написана в среде Pascal.ABC.NET
В Youtube есть видео с названием <span>"Практична робота № 5. Комп’ютерне моделювання (друга частина в середовищі розробки Lazarus)". Практическое решение этой задачи</span>