Вася изготовил карточки, написав на них n первых заглавных букв латинского алфавита. карточки вася положил в стопку. дальше он берет первую сверху карточку и кладет ее в новую стопку. далее вторую карточку он кладет вниз этой новой стопки, третью — наверх новой стопки, потом четвертую — опять вниз, следующую — наверх и т.д. после этого оказалось, что карточки лежат строго по алфавиту, если просматривать их сверху вниз. напишите программу, которая выведет, в каком порядке карточки лежали в исходной стопке. входные данные. вводится натуральное число n (n не превышает 26 выходные данные. выведите буквы, написанные на карточках в исходной стопке, если ее просматривать сверху вниз (должны быть выведены заглавные латинские буквы без пробелов между ними).
Ответы
Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Const n = 5;
m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
end;
writeln;writeln;
end;
//сумма всех элементов массива
for i:=1 to n do
for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
s:=0;
for j:=1 to m do begin
s:=s+a[i,j];
end;
writeln ('Строка: ',i,' сумма:',s);
end;
end.
m = 5;
var a:array[1..n,1..m] of integer;
i,j,s:integer;
begin
//Для теста заполним массив сл.числами
for i:=1 to n do begin
for j:=1 to m do begin
a[i,j]:=random(21)-10; write(a[i,j]:4);
end;
writeln;writeln;
end;
//сумма всех элементов массива
for i:=1 to n do
for j:=1 to m do s:=s+a[i,j];
writeln('сумма всех элементов массива: ',s);
//сумма каждой строки
for i:=1 to n do begin
s:=0;
for j:=1 to m do begin
s:=s+a[i,j];
end;
writeln ('Строка: ',i,' сумма:',s);
end;
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Компьютерная память 7 класс
Автор: sve34166163
Надо, ! использовать алгоритм сместиться на вектор.
Автор: mirdetzhuk79
Сколько раз выполнится тело цикла Если изменить условия на X > = 5
Автор: retropluse832
Изменение температуры представляет собой
Автор: Zhamynchiev
const s='';
var
t: string;
n,i,j: integer;
begin
writeln('Введите количество карточек');
readln(n);
if odd(n) then
i:=(n+1) div 2
else i:=n div 2;
j:=i+1;
t:='';
repeat t:=t+s[i]+s[j];
i:=i-1;
j:=j+1;
until i=0;
writeln(copy(t,1,n))
end.