4 года назад

Вывести таблицу квадратов чётных чисел от 1 до 19. Условный оператор не использовать! Сделайте через цикл

2 ответа:

Borro4 года назад

0 0

Var A: arrey[1..19,1..2] of integer; Var x, i: integer; Begin For i:=1 to 19 do begin A[i,1]:=i; A[i,2]:=i*i; Writeln (A[i,1]:4, A[i,2]:4) End End. --------------- Или если без массива, то так: Const n=12; Var x,y: integer; Begin For x:=1 to n do begin y:=x*x; Writeln (x:4,y:4) End End.

валера774 года назад

0 0

Четные 2,4,6,8,10,12,14,16,18

Читайте также

Помогите составить программу в паскале так, чтобы он выдавал 1 22 333 4444 55555 и т.д

SofiyaRomana [26]

Это программа должна выдать сразу? До какого значения? Конечная цифра задается с клавиатуры?

0 0

4 года назад

При регистрации в компьютерной системе каждому пользователю выдаётся пароль, состоящий из 23 символов и содержащий только символ

АПМ

Для кодирования одного из шести символов необходимо log(2)6 ≈ 3 бита.
Для кодирования пароля из 23 символов необходимо
23*3 = 69 бит = 69/8 байт ≈ 9 байт.
Для 50 паролей: 50*9=450 байт.

0 0

4 года назад

Найти сумму квадратов четных и произведений кубов не четных чисел,первых двух десятков

alinasmirr

Var
s1,i:integer;
ir,s2:real;
begin
s2:=1;
for i:=1 to 20 do
begin;
ir:=i;
if i mod 2=0 then s1+=sqr(i) else s2*=power(ir,3);
end;
writeln('Cумма квадратов чётных=',s1);
writeln('Произведение кубов нечётных=',s2);
<span>end.</span>

0 0

1 год назад

Помогите решить задачу в Паскале: вводится строка с клавиатуры. определить сколько в ней о.

Катя Кит

Var
s:string;
k,i:integer; {k-количество символов 'o',i-счетчик цикла}
begin
readln(s);
k:=0;
for i:=1 to length(s) do {цикл от 1 до длины строки}
if s[i]='o'
then k:=k+1;
writeln(k);
<span>end.</span>

0 0

3 года назад

Прочитать ещё 2 ответа

Срочно !!! Приведите пример линейного, циклического, разветвляющегося алгоритма. Все сделать поэтапно. Не таблицы!!!

Kydryash [7]

1) разветвляющийся алгоритм
2) линейный алгоритм

0 0

4 года назад