Это если про циклы еще не знаете program tref; var a,b,c,sum:integer; begin readln(a,b,c); if(a mod 3 = 0)then sum:=sum+1; if(b mod 3 = 0)then sum:=sum+1; if(c mod 3 = 0)then sum:=sum+1; writeln(sum); readln; end. А это если уже изучали циклы program tref; var a,i,sum:integer; begin for i:=1 to 3 do begin readln(a); if(a mod 3 = 0)then sum:=sum+1; end; writeln(sum); readln; end.
Трехзначное число в системе счисления по основанию p может быть записано, как Разница между максимальным и минимальным трехзначными числами должна превышать десятичное число 200 (пока не будем учитывать дополнительное ограничение на несимметричность), т.е. В целых числах получаем условие p≥6, т.е. основание системы счисления не может быть меньше 6. Найдем, сколько трехзначных чисел можно получить в системе счисления с основанием 6: Симметричными будут числа вида 5х5, 4х4, 3х3, 2х2, 1х1, где х - любая из цифр по основанию 6. Итого получается пять групп, в каждой из которых шесть чисел, т.е. всего трехзначных симметричных чисел может быть 30. Следовательно, в системе счисления по основанию 6 можно записать 215-30=185 трехзначных несимметричных чисел, что меньше ограничения 200. Проверим систему счисления по основанию 7: Симметричными будут числа вида 6х6, 5х5, 4х4, 3х3, 2х2, 1х1, где х - любая из цифр по основанию 7. Итого получается шесть групп, в каждой из которых семь чисел, т.е. всего трехзначных симметричных чисел может быть 42. Следовательно, в системе счисления по основанию 7 можно записать 342-42=300 трехзначных несимметричных чисел, что превышает ограничение 200.
Rem BASIC-256 cls errors = 0 print "Введите текст > ";
rem Пользователь вводит текст input a$
rem Перебираем все буквы с начала и до предпоследней for i=1 to length(a$)-1
rem Если встречаем букву Ч или Щ if mid(a$, i, 1) = "ч" or mid(a$, i, 1) = "щ" then
rem Тогда проверяем следующую за ней букву. rem Если это буква я, тогда подсчитываем очередную ошибку if mid(a$, i + 1, 1) = "я" then errors = errors + 1 end if
rem Переходим к следующей букве next i
rem Вывод результата print "Количество ошибок в тексте "; print errors
![N_{(p)}=n_2\times p^2+n_1\times p^1+n_0\times p^0; \\ N_{(p)}=n_2\times p^2+n_1\times p+n_0, \ \begin {cases} p \in \mathbb Z, \{n_2,n_1,n_0\} \in \mathbb Z \\ n_2 \in [1;p-1], \ \{n_1,n_0\} \in [0;p-1] \\ n_2 \ne n_0 \end {cases}](/tpl/images/0282/1188/e0f7f.png)
![\big((p-1)\times p^2+(p-1)\times p+(p-1)\big)-\big((p^2+0\times p^1+0)\big)200; \\ (p^3-p^2+p^2-p+p-1)-p^2200; \ p^3-1200 \to p \sqrt[3]{200}](/tpl/images/0282/1188/28fa8.png)
program tref;
var a,b,c,sum:integer;
begin
readln(a,b,c);
if(a mod 3 = 0)then sum:=sum+1;
if(b mod 3 = 0)then sum:=sum+1;
if(c mod 3 = 0)then sum:=sum+1;
writeln(sum);
readln;
end.
А это если уже изучали циклы
program tref;
var a,i,sum:integer;
begin
for i:=1 to 3 do
begin
readln(a);
if(a mod 3 = 0)then sum:=sum+1;
end;
writeln(sum);
readln;
end.