Sub Zadanie23525370()
' Dim d As Integer
d = CInt(InputBox("Кол-во дней?"))
MsgBox "Недель: " & d\7 & "; Дней: " & d mod 7
End Sub
Решим всё по формуле включений и исключений:
350+200+500-(50+20+10+5)=1050-85=965
Ответ: <u>965</u>
<span>var
f: text;
s: string;
max: string := '';
begin
//в папке с программой должен быть файл "input.txt"
if FileExists('input.txt') then
begin
Assign(f, 'input.txt');
Reset(f);
while not Eof(f) do
begin
Readln(f, s);
if Length(s) > Length(max) then
max := s;
end;
Writeln('Самая длинная строка в файле: ');
Writeln(max);
Close(f);
end
else
Writeln('Файл не найден');
end.</span>
<em>Да,зависит</em>
Ну мне так кажется :D<em />