Задача 1 Составить блок-схему по алгоритму Евклида (делением).
Задача 2
Исправьте следующий алгоритм решения уравнения (х-2) (х+2) =0:
1) Присвоить х значение ±2.
2) Сообщить “Корни уравнения равны”.
3) Сообщить первое значение х.
4) Сообщить второе значение х.
Задача 3
Проснувшись утром, школьник почувствовал недомогание. Находившийся рядом злоумышленник тут же составил для него следующий алгоритм:
1) Измерить температуру.
2) Если температура выше 370, то:
3) Вызвать врача.
4) Пойти в школу.
Несмотря на недомогание, школьник исправил этот алгоритм, добавив всего две строки. Какие строки добавил школьник?
Задача 4
В записи алгоритма вычисления значения выражения (х2- 5х+5) / (х6- 4х2+3)
Злоумышленник одно действие поставил не на свое место. Вот как стал выглядеть алгоритм:
1) ввести х
2) если х6- 4х2 + 3=0, то:
3) сообщить “При таком х значение выражения не определено”.
4) иначе:
5) присвоить у значение (х2- 5х +5) /(х6- 4х2+3) .
6) конец ветвления.
7) сообщить у.
Верните действие на свое место.
2Кбайт - 2 килобайта.
2Kбайт в байтах равен 2000 байтам. А значит что, реферат под номером два, больше по размеру.
Необходимости сохранение информации в формате .PDF - особой нету. Единственное что хочется сказать что это удобно. Почему? Потому что, "случайный" пользователь не сможет отредактировать файл, изменить текст, что даёт поверхностную безопасность. Также хочется отметить, что формат .PDF удобнее дня чтение, если это електроная книга, и в отличии от .fb2 и .epub имеет разумный вес.
Подводя итог,
.PDF .epub .fb2 - форматы для чтение, пассивного потребления информации, без возможности редактирования.
Формат портативных устройств.
.doc .docx .txt - форматы для активного редактирования и потребления информации.
Формат профессиональных устройств, компьютеров.
Объяснение:
1)
program test1;
var a:string;
i,n,f:integer;
begin
read (a);
n:=length(a);
for i:=1 to n do begin
if (a[i]>='0') and (a[i]<='9')
then f:=f+1;
end;
write ('Количество цифр= ',f);
end.
2)
program test1;
var i:integer;
begin
for i:=41 to 50 do
write(i:3);
writeln;
for i:=51 to 60 do
write(i:3);
writeln;
for i:=61 to 70 do
write(i:3);
writeln;
for i:=71 to 80 do
write(i:3);
end.
3)
var s: string;
i: byte;
sum,c,k: integer;
begin
sum:=0;
read(s);
for i:=1 to length(s) do
if s[i] in ['0'..'9'] then
begin
val(s[i],c,k);
sum:=sum+c;
end;
writeln('Сумма цифр=',sum);
end.