1)дана величина а , выражающая объём информации в байтах.перевести а в более крупные единицы измерения - id276558220211122 от Даниэлла25111 22.11.2021 22:37

Question

Информатика: 1)дана величина а , выражающая объём информации в байтах.перевести а в более крупные единицы измерения информации. 2)вкладчик положил в банк некоторую сумму рублей под 15%годовых.написать программу для определения суммы вклада через 1 год.ниже представлен рекомендуемый вид экрана.(во время работы программы данные , введённые пользователем,выделены полужирным шрифтом).вычисление дохода по вкладу: введите исходные данные: величина вклада( 2510 доход: 386,5 руб. сумма через год: 2886,5 руб. 3)определить

Даниэлла25111 · Accepted Answer

Program asd;
var f,g:text;
t,fs,gs:string;
i,k,n:integer;
IsFilesEqual:boolean;
begin
IsFilesEqual:=true;
assign(f,'fi1.txt');
assign(g,'fi2.txt');
reset(f);
reset(g);
n:=0;
while not eof(f) do
begin
if not IsFilesEqual then
break;
readln(f,fs);
readln(g,gs);
if fs<>gs then
begin
IsFilesEqual:=false;
inc(n);
if length(fs)<Length(gs) then
t:=fs
else
t:=gs;
for i:=1 to length(t) do
if fs[i]<>gs[i] then
begin
k:=i;
break;
end;
end;
end;
close(f);
close(g);
if IsFilesEqual then writeln('Совпадают.')
else
writeln('Строка = ',n,' Позиция = ',k);
readln;
end.

MOGZ ответил