А) var n,m,k:integer; begin readln(n); m:=n div 10; k:=n mod 10; if (m+k) mod 3 = 0 then writeln('Сумма чисел числа ',n,' кратна 3') else writeln('Сумма чисел числа ',n,' не кратна 3'); end.
Б) var n,m,k,a:integer; begin readln(n,a); m:=n div 10; k:=n mod 10; if (m+k) mod a = 0 then writeln('Сумма чисел числа ',n,' кратна ',a) else writeln('Сумма чисел числа ',n,' не кратна ',a); end.
Программа ищет и выводит все трехбуквенные слова, содержащие русские и/или латинские буквы в обоих регистрах. Слова могут разделяться любым количеством любых символов, кроме символа подчеркивания.
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017 // Внимание! Если программа не работает, обновите версию!
begin var s:=ReadlnString('Вводите:'); var m:=s.Matches('\b\w{3}\b'); if m.Count>0 then m.Println else Writeln('Нет трехбуквенных слов') end.
Пример: Вводите: Как найти все слова, где букв - три? Как все где три
Var s,tmp:string; i,n:integer; flag,word:boolean; function letter (const let:char):boolean; begin if ((let>='a') and (let<='z')) or ((let>='A') and (let<='Z')) then letter:=true else letter:=false; end; begin readln (s); s:=s+' '; n:=length(s); flag:=false; for i:=1 to n do begin if (letter(s[i])) and (not flag) then begin flag:=true; tmp:=''; word:=false; end else if (not letter(s[i])) and (flag) then begin flag:=false; if (word) and (not (tmp='')) then writeln (tmp); end; if (flag) then begin tmp:=tmp+s[i]; if (s[i]='k') then word:=true; end; end; end.
var n,m,k:integer;
begin
readln(n);
m:=n div 10;
k:=n mod 10;
if (m+k) mod 3 = 0
then writeln('Сумма чисел числа ',n,' кратна 3')
else writeln('Сумма чисел числа ',n,' не кратна 3');
end.
Б)
var n,m,k,a:integer;
begin
readln(n,a);
m:=n div 10;
k:=n mod 10;
if (m+k) mod a = 0
then writeln('Сумма чисел числа ',n,' кратна ',a)
else writeln('Сумма чисел числа ',n,' не кратна ',a);
end.
ставь "Лучший ответ"