Начало
Сними трубку
набери номер
дождись гудка
гудки длинные?
передай сообщение
дождись ответа
положи трубку
конец
в ромбе всегда стоит вопрос.
Var n,i,s,a:integer;
begin
write('Введите n = '); readln(n);
s:=0; a:=0;
for i:=1 to n do
begin
a:=a+2;
s:=s+a*a;
end;
writeln('Сумма квадратов ',n,' четных натуральных чисел = ',s);
<span>end.</span>
VAR I,N,C,KT,SUM:INTEGER;BEGINN:=0;C:=0;KT:=0;FOR I:=50 TO 100 DOBEGIN WRITE (I:3);N:=N+1;IF I MOD 2=0 THEN C:=C+1;IF I MOD 3=0 THEN KT:=KT+1;IF (I MOD 2=0) AND (I MOD 3=0)THEN SUM:=SUM+I;END;WRITELN;WRITELN ('ВСЕГО ', N:2, 'ЧЕТНЫЕ ', C:2, 'КРАТНЫЕ ТРЁМ ',KT:2);WRITELN ('СУММУ ЧИСЕЛ ЧЕТНЫХ И КРАТНЫХ ТРЕМ ', SUM:4);END.
Нет: сколько у вас работ, для каких клиентов, в какой технике и какого качества, какие программы использованы.По ситуации: возраст, место жительства или работы; биография, образование, владение иностранными языками, подробности личной жизни.Да: профессиональные интересы, чем вы будете полезны, любимые типы задач, владение полезными знаниями и навыками, которые нельзя увидеть портфолио.<span>Описывать свои работы — тупиковый путь:</span>