сервис вопросов и ответовПрограммист Василий Кардов недавно получил банковскую карточку. Чтобы не забыть пароль к карточке, Василий решил построить его по алгоритму, а именно:
5-9 класс|
|
пароль равен количеству чисел от 1 до 10000, НЕ делящихся на 13 и 17. Чему равен пароль васи?
Mileenochka
17 нояб. 2016 г., 2:37:02 (7 лет назад)
FkyonkaIvchenko
17 нояб. 2016 г., 4:39:00 (7 лет назад)
program suma_chisel;
var s,i,t,c:integer;
begin
s:=0;
for i:=1 to 10000 do begin
t:=i mod 13;
c:=i mod 13;
if not(t=0) and not(c=0) then s:=s+1 end;
writeln ('Nomer karti - ',s);
readln
end. //на Паскале на правельность не проверял
Ответить
Другие вопросы из категории
Составить блок схему со стрелочками к программе: Program name; const n=30; var a:array [1..n] of integer;
vari,r:integer;
begin
for i:=1 to n do
begin
a[i]:=random (20);
write (a[i],' ');
end;
r:=0;
for i:=1 to n do
if a[i]<10 then r:=r+1;
writeln;
writeln ('kolichestvo chisel menshe 10 - ',r);
end.
Var x,y,z,d:integer;
b1,b2,b3,b4,b5,b6:boolean;
begin
Write('введите 4 любых числа');
readln(x,y,z,d);
b1:=x+y>z-d;
b2:=x-y<=z+d;
b3:=x/y<z*d;
b4:=x*y>=z/d;
b5:=x+y=z+d;
b6:=x-y<>z-d;
Write('сумма первого и второго больше разности второго и третьего;b1');
WRITE('разность первого и второго больше или равна сумме третьего и четвертого;b2');
write('деление первого и второго меньше произведения третьего и четвертого;b3');
write('произвдение первого и второго больше или равна делению третьего и четвертого;b4');
write('сумма первого и второго равна сумме третьего и чертогоb5');
write('разность первого и второго не равна разности третьего и четвертого');
Readln (b1,b2,b3,b4,b5,b6);
End.
исправьте, в паскале, просит ввести доп данные, а я не знаю что делать:(
Читайте также
Программист Василий Кардов недавно получил банковскую карточку.Чтобы не забыть пароль к карточке ,Василий решил построить его по алгоритму,а именно:
пароль равен количеству чисел от 1 до 10000,не делящихся на 13 и 17.Чему равен пароль Васи?
Программист Василий Кардов недавно получил банковскую карточку.чтобы не забыть пароль к карточке Василий решил построить его по алгоритму, а именно
пароль равен количеству чисел от 1 до 10000 не делящихся на 13 и 17 ,чему равен пароль васи?
Программист Василий недавно получил банковскую карточку.Чтобы не забыть пароль, решил построить его по алгоритму, а именно: пароль равен количеству от
1 до 10 000, не делящихся на 13 и 17. Чему равен пароль Васи?
Программист Василий Кардов недавно получил банковскую карточку. Что бы не забыть пароль к карточке, Василий решил построить его по алгоритму, а именно:
пароль равен количеству чисел от 1 до 10 000, не делящихся на 13 и 17. Чему равен пароль Васи?
Помогите, плиз, оооочень нужно!!!:(
Три фирмы A, B и C решили получить максимальную прибыль по итогам года. Экономист, хорошо знавший организацию работы в этих фирмах, высказал следующие
предположения:
а) фирма C получит максимальную прибыль, если максимальную прибыль получит фирма B или не получит фирма A;
б) чтобы фирма C не получила максимальную прибыль, необходимо, чтобы и фирма A не получила максимальную прибыль.
Сумеет ли фирма А получить максимальную прибыль?
Вы находитесь на странице вопроса "Программист Василий Кардов недавно получил банковскую карточку. Чтобы не забыть пароль к карточке, Василий решил построить его по алгоритму, а именно:", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.