Ответы Mail.ru
Программирование
Android
C/C++
C#
iOS
Java
JavaScript
jQuery
SQL
Perl
PHP
Python
Веб-дизайн
Верстка, CSS, HTML, SVG
Системное администрирование
Другие языки и технологии
Лидеры категории
Лена-пена
М.И.
Y.Nine
•••
Искусственный Интеллект
Искусственный Интеллект
Искусственный Интеллект
Лучший ответ
Остальные ответы
дунай
(5193)
7 лет назад
if (a>=70) and (a<=79) and (a div 10 =7) then k:=k+1;
Юрий МоисеевОракул (83936)
7 лет назад
А зачем 3-е условие a div 10 =7?.
дунай
Мыслитель
(5193)
согласен, мой косяк
Александр Устименко
(24311)
7 лет назад
uses crt;
var chislo, i: Integer;
const m=500;
begin
clrscr;
randomize;
for i:=1 to 200 do
begin
chislo:=random (m)-random(m);
if (((abs(chislo div 70)=1) and (abs(chislo)<100)) and (abs(chislo mod 70 )<10)) then
begin
textcolor (green);
write (chislo:8)
end
else
begin
textcolor (white);
write (chislo:8)
end;
end;
readln;
end.
var chislo, i: Integer;
const m=500;
begin
clrscr;
randomize;
for i:=1 to 200 do
begin
chislo:=random (m)-random(m);
if (((abs(chislo div 70)=1) and (abs(chislo)<100)) and (abs(chislo mod 70 )<10)) then
begin
textcolor (green);
write (chislo:8)
end
else
begin
textcolor (white);
write (chislo:8)
end;
end;
readln;
end.
Лав Вал
(4098)
7 лет назад
На здоровье!
program zadachka2;
var i, x: integer;
begin
repeat
Write('Введите число: ');
Read(i);
if (i div 10 = 7) or (i div 10 = - 7) then
x:= x+1;
until i=0;
Writeln('Количество двузначных чисел, начинающихся на 7: ',x);
end.
program zadachka2;
var i, x: integer;
begin
repeat
Write('Введите число: ');
Read(i);
if (i div 10 = 7) or (i div 10 = - 7) then
x:= x+1;
until i=0;
Writeln('Количество двузначных чисел, начинающихся на 7: ',x);
end.
Илья Покотило
(159)
7 лет назад
Бл# пацаны я ни#уя не понимаю из того что вы тут пишите, больше во вкладку "программирование" заходить не особо хочу (😅)...
Похожие вопросы
Колво чисел не превышает 200 Введенные числа по модулю не превышают 10000