ПОМОГИТЕ С ИКТ!!! ПАСКАЛЬ! ДАЮ 23 балла! ____________________________

July 2022 2 1 Report

ПОМОГИТЕ С ИКТ!!! ПАСКАЛЬ! ДАЮ 23 балла!
_____________________________
Задача: Вводится последовательность чисел, которая оканчивается 0. Определите количество и сумму чисел, которые кратны B. Если таких чисел нет, то сообщить об этом. (решить нужно с помощью цикла while)

vladmor //Pascal
//вариант с циклом while
var
a,b, n: integer;

begin
n:=0;
    readln(b);
    readln(a);
    while a<>0 do begin
    if a mod b = 0 then n:=n+1;
      readln(a);
   end;
writeln(n);
end.

0 votes Thanks 1

VVira а что обозначает n? нам же вроде нужны переменные S и k

vladmor В условии явно указана только переменная В

filpolli96 Var a, b, S, k: integer;beginS:=0;k:=0;readln(b);readln (a);while (a<>0) do beginif (a mod b =0)then begin S:=S+1;k:=k+a;end;readln (a);end;if (S>0) and (k>0)then writeln (S, ' ', k)else writeln ('таких чисел нет');end.

2 votes Thanks 1

filpolli96 var a, b, S, k: integer; begin S:=0; k:=0; readln(b); readln (a); while (a<>0) do begin if (a mod b =0) then begin S:=S+1; k:=k+a; end; readln (a); end; if (S>0) and (k>0) then writeln (S, ' ', k) else writeln ('таких чисел нет'); end.

Answers & Comments

pomogite pozhalujsta s ikt dayu 15ballov paskal

pomogite s ikt paskal proshu zadacha

ikt paskal dayu 35 ballov my nachali prohodit

razlozhite na mnozhiteli mnogochlenaxyz4xz3xy12xb 2aa2aav 4 stepeniv

opredelite zhanrovuyu prinadlezhnost proizvedeniya mu mu tak kak avtor nazyval ego

dayu 70 ballov rebyata srochno pomogite s ikt proshu

dayu 60 ballov rebyata srochno pomogite s ikt proshu

opredelite polozhenie himicheskogo elementa periodicheskoj sisteme mendeleeva po egbb0f14aa93851f54f6004ac5d0bb8616 31959

iktpaskalproshu pomogite zadacha sortir

6zaranee spasibo18d8e9245b227709a71704a96a075f46 75516

рекомендуемые вопросы

Helpful Links

Helpful Social