{сумма натуральных чисел из промежутка от 1 до 100, которые делятся на 17 и сумма цифр, которых не превышает 7. Можно перебором} var i,s:integer; begin s:=0; for i:=1 to 100 do if (i mod 17=0) and (i div 10 + i mod 10<7) then s:=s+i; writeln(s); end. {результат 51}
{ Можно оптимизировать в цикле изменив for i:=1 to 100 do на for i:=17 to 100 do}
{2 вариантө оптимальнее - перебираем только числа кратные 17] var i,s:integer; begin s:=0; i:=17; while i<=100 do begin if (i div 10 + i mod 10<7) then s:=s+i; i:=i+17; end; writeln(s); end.
Надо рассмотреть координату точки на предмет больше или меньше нуля x,y Если x>0 и y > 0 то 1 четверть Если x<0 и y > 0 то 2 четверть Если x<0 и y <0 то 3 четверть Если x>0 и y < 0 то 4 четверть
Uses Crt; var s,vk,pc:real; m:integer; begin clrscr; Writeln('Введите сумму вклада:'); Read(s); Writeln('Введите месячный процент(%):'); read(pc); pc:=pc/100; vk:=0; m:=0; while vk<=30 do begin vk:=vk+pc*s; s:=(1+pc)*s; m:=m+1; end; write('Вклад превысит 30 руб через ',m,' месяцев'); end.