<script type="text/javascript"> // Скрипт должен располагаться после формы
var M = [];
// Получение параметров var parts = window.location.href.replace(/[?&]+([^=&]+)=([^&]*)/gi, function(m,key,value) { M[key] = value; });
// ставим обратно в поля if (M['number']) document.getElementById('number').value = M['number']; if (M['data']) document.getElementById('data').value = M['data'];
// вот так можно перебрать: for (var key in M) alert(key + ' ' + M[key]);
Program A; var a,b,c,s:integer; begin write('введите кол-во чисел в последовательности:'); readln(a); for c:=1 to a do begin write('введите число:'); readln(b); if (b mod 10=3) then s:=s+b; write(b,' '); end; writeln('сумма чисел, оканчивающихся на 3=',s); end. с клавиатуры вводится кол-во чисел в последовательности и каждое число послед-ти на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3
program B; var a,b,s:integer; begin write('введите кол-во чисел в последовательности:'); readln(a); for c:=1 to a do b:=random(300)+1; if (b mod 10=3) then s:=s+b; write(b,' '); end; writeln('сумма чисел, оканчивающихся на 3=',s); end. с клавиатуры вводится только кол-во чисел в последовательности а каждое число послед-ти вводится само рандомно. на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3
<table>
<tr>
<td><input type="text" name="number" id="number"></td>
<td><input type="text" name="data" id="data"></td>
</tr>
<td><input type="submit" id="submit"></td>
</table>
</form>
<script type="text/javascript">
// Скрипт должен располагаться после формы
var M = [];
// Получение параметров
var parts = window.location.href.replace(/[?&]+([^=&]+)=([^&]*)/gi,
function(m,key,value) { M[key] = value; });
// ставим обратно в поля
if (M['number']) document.getElementById('number').value = M['number'];
if (M['data']) document.getElementById('data').value = M['data'];
// вот так можно перебрать:
for (var key in M) alert(key + ' ' + M[key]);
</script>
var a,b,c,s:integer;
begin
write('введите кол-во чисел в последовательности:');
readln(a);
for c:=1 to a do
begin
write('введите число:');
readln(b);
if (b mod 10=3) then
s:=s+b;
write(b,' ');
end;
writeln('сумма чисел, оканчивающихся на 3=',s);
end.
с клавиатуры вводится кол-во чисел в последовательности и каждое число послед-ти на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3
program B;
var a,b,s:integer;
begin
write('введите кол-во чисел в последовательности:');
readln(a);
for c:=1 to a do
b:=random(300)+1;
if (b mod 10=3) then
s:=s+b;
write(b,' ');
end;
writeln('сумма чисел, оканчивающихся на 3=',s);
end.
с клавиатуры вводится только кол-во чисел в последовательности а каждое число послед-ти вводится само рандомно. на экран выводится последовательность чисел через пробел и сумму чисел, оканчивающихся на 3