Исполнить
10-11 класс
|
алгоритм при K =
4 по шагам и записать значение величины
S
K S I
4 0 1
4 3 2
4 9 3
4 18 4
4 30 5
Так это выглядит на паскале:
Program ksi;
Uses crt;
Var k,s,i:integer;
begin
Clrscr;
Write ('k=');
Read (k);
S:=0;
i:=1;
While i<=k do begin
S:=S+3*i;
i:=i+1;
Writeln ('s=',s);
end;
Readkey;
end.
Другие вопросы из категории
русские буквы
program telegraf2014;uses crt;label m;var a:array['а'..'я'] of string; i,j:integer; t:string;begina['а']:='.-';a['б']:='-...';a['в']:='.---';a['г']:='--.';a['д']:='-..';a['е']:='.';a['ж']:='...-';a['з']:='--..';a['и']:='..';a['й']:='.---';a['к']:='-.-';a['л']:='.-..';a['м']:='--';a['н']:='-.';a['о']:='---';a['п']:='.--.';a['р']:='.-.';a['с']:='...';a['т']:='-';a['у']:='..-';a['ф']:='..-.';a['х']:='....';a['ц']:='-.-.';a['ч']:='---.';a['ш']:='----';a['щ']:='--.-';a['ъ']:='-..-';a['ы']:='-.--';a['ь']:='-..-';a['э']:='..-..';a['ю']:='..--';a['я']:='.-.-';m:ClrScr;GotoXY(30,1);writeln('Это программа телеграф');GotoXY (18,2);writeln('Введите слово строчными буквами на русском языке!');readln(t);beginfor i:=1 to length(t) dobeginif t[i]<>' 'thenbeginwrite (a[t[i]],' '); end; end;readln; end;goto m;end.
в память
б) решает у доски задачу -
в) слушает музыку;
г) пишет письмо;
д) переводит текст с английского языка на русский;
е) пишет диктант.
1. слуха
2. зрения
3. обоняния
4осязания
Читайте также
2) S:=15; i:=5. while i<7 do begin i:=i+1 S:=S+S; end
3) S:= -6; i:=4
while i>8 do i:=i+1; S:=S * 0 .
значение переменной S:
потом ещё 6км на восток, пока, наконец, он не проехал 4км на север. на каком расстоянии от исходной точки находится Емеля, если считать расстояние в км?
= 8 и
Х2 = 3 , записать
значение величины Y
Исполнить x=13.
сделать блок схему и программу на паскале.