Информатика и икт бененсон, паутова 3 класс часть 2 39 составь алгоритмы по чертежам. но сначала пронумеруй фигуры, из которых состоит чертеж, выдели точки начала рисования каждой фигуры и напиши план работы над алгоритмом
1. Var a,b,pr:integer; Begin pr:=1; write('Вводите числа, когда закончите - введите 0. '); readln(a); while (a<>0) do begin if (a>0) and (a<10) then begin b:=b+1; pr:=pr*a; end; readln(a) end; Writeln('Чисел, больше 0 и меньше 10: ',b,' их произведение:',pr);end.
2. Var a,b,c,i,sum,f:integer; Begin Write('Введите 10 двузначных чисел: '); repeat readln(a); until(a>=10) and (a<100); for i:=1 to 10 do begin repeat readln(a); until(a>=10) (a<100) b:=a mod 10; c:=a div 10; sum:=b+c; if (sum mod 2 = 0) then f:=f+1; end; Writeln('Кол-во цифр, удовлетворяющих условию: ',f); end.
3. Var a,b,c:integer; Begin write('Вводите целые положительные числа.'); repeat readln(a); b:=b+a; c:=c+1; until (b>100); Writeln('Кол-во введёных чисел:',c,' их сумма:',b); end.
Анализ (др.-греч. ἀνάλυσις — разложение, расчленение) — метод исследования, характеризующийся выделением и изучением отдельных частей объектов исследованияОбъект в программировании — некоторая сущность в виртуальном пространстве, обладающая определённым состоянием и поведением, имеющая заданные значения свойств (атрибутов) и операций над ними (методов)[1]. Как правило, при рассмотрении объектов выделяется то, что объекты принадлежат одному или нескольким классам, которые определяют поведение (являются моделью) объекта. Термины «экземпляр класса» и «объект» взаимозаменяемы.[2] Мышле́ние (гр. ноэзис) — это познавательная деятельность человека[1]. Результатом мышления является мысль (понятие, смысл, идея). Мышление противопоставляют «низшим освоения мира в форме ощущенияили восприятия, которые свойственны в том числе и животным. Многие философы называли мышление сущностным свойством человека. Так Декартутверждал: «Я мыслю, следовательно, я существую». Паскаль называл человека мыслящим тростником[2]Ло́гика (др.-греч. λογική — «наука о правильном мышлении», «искусство рассуждения» от λόγος — «речь», «рассуждение», «мысль») — раздел философии, нормативная[неизвестный термин][1] наука о формах, методах и законах деятельности, формализуемых с языка. Поскольку это знание получено разумом, логика также определяется как наука о формах и законах правильногомышления. Поскольку мышление оформляется в языке в видерассуждения, частными случаями которого являютсядоказательство и опровержение, логика иногда определяется как наука о рассуждения или наука о доказательств и опровержений.
Var a,b,pr:integer;
Begin
pr:=1;
write('Вводите числа, когда закончите - введите 0. '); readln(a);
while (a<>0) do begin
if (a>0) and (a<10) then begin b:=b+1; pr:=pr*a; end; readln(a) end;
Writeln('Чисел, больше 0 и меньше 10: ',b,' их произведение:',pr);end.
2.
Var a,b,c,i,sum,f:integer;
Begin
Write('Введите 10 двузначных чисел: '); repeat readln(a); until(a>=10) and (a<100);
for i:=1 to 10 do
begin
repeat readln(a); until(a>=10) (a<100)
b:=a mod 10;
c:=a div 10;
sum:=b+c;
if (sum mod 2 = 0) then f:=f+1;
end;
Writeln('Кол-во цифр, удовлетворяющих условию: ',f);
end.
3.
Var a,b,c:integer;
Begin
write('Вводите целые положительные числа.');
repeat
readln(a);
b:=b+a;
c:=c+1;
until (b>100);
Writeln('Кол-во введёных чисел:',c,' их сумма:',b);
end.