Файл изображения имеет формат .jpg
Program Rick_and_Morty;
var a,b:integer;
Begin
write('введите a: ');
readln (a);
write('введите b: ');
readln (b);
writeln('b^4 = ',b*b*b*b );
writeln('a+b^4 = ',a+b*b*b*b );
writeln('7.1*(a+b^4) = ',7.1*(a+b*b*b*b) );
writeln('7.1*(a+b^4) = ',7.1*(a+b*b*b*b) );
writeln('корень из (7.1*(a+b^4)) = ', sqrt(7.1*(a+b*b*b*b)) );
writeln('a^2 = ', a*a );
writeln('9.213*a^2 = ', 9.213*(a*a) );
writeln('(9.213*a^2)-b = ', (9.213*(a*a))-b );
writeln('ответ:');
writeln('(корень из (7.1*(a+b^4)))/(9.213*a^2)-b = ', (sqrt(7.1*(a+b*b*b*b)))/((9.213*(a*a))-b ) );
writeln('');
writeln('конец');
end.
<span>Термином "информатика" обозначают совокупность дисциплин, изучающих свойства информации, а также способы представления, накопления, обработки и передачи информации с помощью технических средств.</span> На Западе применяют другой
термин «computer science» – компьютерная наука.
Ядро информатики – информационная
технология как совокупность конкретных технических и программных средств, с
помощью которых мы выполняем разнообразные операции по обработке информации во
всех сферах нашей жизни и деятельности.Иногда <u /><em>информационной технологией</em><span> называют компьютерной технологией или даже прикладной информатикой.
</span>Центральное место в ПРИКЛАДНОЙ ИНФОРМАТИКЕ занимает <em>компьютер</em> (от английского слова COMPUTE - вычислять) - техническое устройство для обработки информации. Его также часто называют <em>электронной вычислительной машиной</em> (ЭВМ<span>).
</span>В школьном курсе информатики вы будете изучать <u>ОСНОВЫ СОВРЕМЕННОЙ ИНФОРМАЦИОННОЙ ТЕХНОЛОГИИ.</u>
Познакомьтесь с принципами работы программно-технических с редакторами - PAINTBRUSH, WORD, EXCEL.
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;
<span>end.</span>