1) print (3+4-1) який результат виконання програм? 6 3+4 11 3+4-1 ("3+4") 7 "3+4" 2)... сукупність алгоритмів які виконуються комп'ютером 3) що виведе цей код? a = 1 b=3 print ( b-a ) 2 1+3 b+a b-a "a+b" 4 нічого, код не дійсний
begin writeln('Загружаю входные данные...'); t := ''; AssignFile(fileIn, IN_FILENAME); AssignFile(fileOut, OUT_FILENAME); reset(fileIn); while not eof(fileIn) do begin readln(fileIn, s); if (s = '0') then break else t := t + s; end; CloseFile(fileIn); rewrite(fileOut); writeln(fileOut, Length(t)); CloseFile(fileOut); end.
const
IN_FILENAME = 'INPUT.txt';
OUT_FILENAME = 'OUTPUT.txt';
var
fileIn,fileOut: TextFile;
s,t: string;
begin
writeln('Загружаю входные данные...');
t := '';
AssignFile(fileIn, IN_FILENAME);
AssignFile(fileOut, OUT_FILENAME);
reset(fileIn);
while not eof(fileIn) do
begin
readln(fileIn, s);
if (s = '0') then
break
else
t := t + s;
end;
CloseFile(fileIn);
rewrite(fileOut);
writeln(fileOut, Length(t));
CloseFile(fileOut);
end.