1.вычислить значение переменной y при заданном значении n: y=1/1+1/2+1/3+ + 1/n. использовать цикл типа до. (паскаль) 2. найти все целые двузначные числа, удовлетворящие условию: остаток от деления на 3 равен 2. (паскаль)
1).Использовал цикл,но условия не до конца понял program c1; var n,i:integer; y,l:real; begin l:=1; readln(n); for i:=1 to n do begin y:=y+(1/l); l:=l+1; writeln(y); end; end.
2).
program c1; var n,i:integer; begin readln(n); for i:=1 to n do begin if (i mod 3=2) then write(i,' '); end; end.
1. Дискретность. Вы можете выполнить шаг только после выполнения предыдущего. Например, в алгоритме вычисления 8*3+2 (без скобок) вы сперва выполните умножение(по правилу), и только затем прибавите 2. Иначе ответ неверен.
2.Определенность. Вы не можете разделить 8 на 3, если Вам ясно сказано: умножьте. Определенность - это четкое прописывание условия задачи.
3.Результативность. После выполнения действий Вы получите ответ 26 и только 26. Результативность следует из определенности. Благодаря результативности Вы получите "среду", в которой все объекты однозначно определены.
4. Понятность. (Здесь тоже нужно объяснить? По-моему, свойство само за себя говорит.)
5.Массовость. Алгоритм может быть применен не единожды. То есть в нашем примере 8*3+2 присутствуют операции умножения и сложения, но они могут встречаться не только в нашем примере, а "пригодны" для множества других задач, в которых требуется умножить или сложить.
Современный мир полон всяческих новинок: науки, техники, медицины. Никогда, наверное, люди не обладали такой суммой знаний в разных областях. Удивительные вещи и явления окружают нас.Наука придумала массу интересного и полезного. От биоматериалов до искусственной руки. От искусственной почки до контактных линз, которые тренируют ночью глазные мышцы.Технологии, созданные самими талантливыми людьми, могут приносить пользу, а могу т и вред. Смотря как ими пользоваться. С смартфона, например, можно разводить сплетни.ХАХАХХА сплетни)) Сам чЁ нибудь придумаешь хахаа
1).Использовал цикл,но условия не до конца понял
program c1;
var n,i:integer;
y,l:real;
begin
l:=1;
readln(n);
for i:=1 to n do
begin
y:=y+(1/l);
l:=l+1;
writeln(y);
end;
end.
2).
program c1;
var n,i:integer;
begin
readln(n);
for i:=1 to n do
begin
if (i mod 3=2) then write(i,' ');
end;
end.