Питон ! Напишите программу которая получает два целых числа A и B и выводит квадраты всех чисел в интервале от A до B с шагом 1,5 (сначала используя цикл while потом for)
Program n1; var st: string; i,c: longint; b: boolean; procedure numdig(st: string; x: char); var i,k: longint; t: string; begin t:=''; k := 0; for i := 1 to length(st) do begin if st[i] = x then k := k + 1; end; if(k<>0) and (k<>1) then begin if(k=2) or (k=3) or (k=4) then t:='а'; writeln('цифра ',x,' повторяется ',k,' раз',t); c:=c+1; end end; begin c:=0; write('введите число: '); read(i); str(i, st); numdig(st,'0'); numdig(st,'1'); numdig(st,'2'); numdig(st,'3'); numdig(st,'4'); numdig(st,'5'); numdig(st,'6'); numdig(st,'7'); numdig(st,'8'); numdig(st,'9'); if c=0 then writeln('цифры не повторяются'); end.
{ правильная программа, кол-во элементов вводится с клавиатуры } Program Summa; uses crt; type a1= array of integer; var a: a1; m,s,n: integer; procedure Input; const p=1; const q=20; var i: integer; begin randomize; begin for i:=0 to n-1 do a[i]:=random(q-p+1)+p; write('a[',i,']='); readln(a[i]); end; end; procedure Print; var i: integer; begin write('Массив целых чисел А: '); for i:=0 to n-1 do write(' ',a[i]); writeln; writeln; end; procedure Sum( m: integer); var i: integer; begin s:=0; for i:=0 to m-1 do s:=s+a[i]; end; Begin ClrScr; write('введите кол-во элементов в массиве: '); readln(n); SetLength(a, n); Input; ClrScr; Print; write('Сколько элементов суммировать: '); readln(m); Sum(m); writeln; writeln('Сумма ',m,' элементов масссива равна: ', s); Sum(n); writeln; writeln('Сумма всех ',n,' элементов массива равна: ', s); Writeln ('Среднее арифмитическое всех элементов равно ', s/n); Readkey; end.
var
st: string;
i,c: longint;
b: boolean;
procedure numdig(st: string; x: char);
var i,k: longint;
t: string;
begin
t:='';
k := 0;
for i := 1 to length(st) do
begin
if st[i] = x then k := k + 1;
end;
if(k<>0) and (k<>1) then
begin
if(k=2) or (k=3) or (k=4) then t:='а';
writeln('цифра ',x,' повторяется ',k,' раз',t);
c:=c+1;
end
end;
begin
c:=0;
write('введите число: ');
read(i);
str(i, st);
numdig(st,'0');
numdig(st,'1');
numdig(st,'2');
numdig(st,'3');
numdig(st,'4');
numdig(st,'5');
numdig(st,'6');
numdig(st,'7');
numdig(st,'8');
numdig(st,'9');
if c=0 then writeln('цифры не повторяются');
end.