Информатика: Вывести сумму двухзначных чисел в которых есть цифра 6

Вывести сумму двухзначных чисел в которых есть цифра 6

👇

Ответ:

yaanny0304

13.08.2022

Var a, b, sum: integer;
readln(a);
readlb(b);
if ((a div 10 = 6) or (a mod 10 = 6)) and ((b div 10 = 6) or (b mod 10 = 6)) and ((a < 100) and (a > 9) and (b > 9) and (b < 100)) then
sum := a + b;
else writeln("в числах нет 6 или они не двузначные");
writeln(sum);

кажется должно быть понятно(это на паскале, но я его не помню и может быть ошибка где-нибудь.
а так просто объяснение:
вводим с клавиатуры 2 числа, заводим переменную для суммы
проверяем есть ли в числах цифра 6 и не двузначное ли оно
если все ок, то считаем и выводим сумму

4,6(82 оценок)

Открыть все ответы

Ответ:

Андріана1323

13.08.2022

//Как-то громоздко получилось, но я так вижу. Эх, выходные.
const n=5;
var a:array[1..n] of integer;
b:array[0..8] of integer;
ar:array[1..n] of integer;
i,c,j:integer;
begin
randomize;
writeln('Array:');
for i:=1 to n do
begin
a[i]:=random(8);
write(a[i]:4);
end;
for i:=1 to n do
begin;
for j:=0 to 8 do
if a[i]=j then inc(b[j]);
end;
for i:=1 to n do
begin;
for j:=0 to 8 do
if (b[j]>1) and (a[i]=j) then a[i]:=9;
if a[i]<>9 then
begin;
inc(c);
ar[c]:=a[i];
end;
end;
writeln;
for i:=0 to 8 do writeln(i,'=',b[i]);
writeln;
writeln('Final array:');
for i:=1 to n do
if a[i]=9 then a[i]:=0;

for i:=1 to c do
begin;
a[i]:=ar[i];
write(a[i]:4);
end;
end.

4,5(57 оценок)

Ответ:

svetlanaka123

13.08.2022

Электронды пошта (electronic mail, e-mail) – Интернет желісінде ең атақты қолдану. Бұл бөлімде Интернетте қолданылатын электронды поштаның негізгі хаттамасы туралы толық жазылған.

Электронды пошта ең басында қолдан жасалған пошталық жүйе түрінде болды. Сауда түрі, мысалы IBM компаниясымен PROFS (Professional Office System), бірінші тек қана мэйнфреймдар мен шағын-ЭЕМ үшін өңделді.

Бірақ жергілікті желілердің пайда болуы электронды поштаның сауда өнімінің дамуына әкелді. Бұл жүзеге асыру таныс жетіспеушілік –стандартты хаттамаларды толық емес қолдау. Пошталық сервер сапасында файлдық сервер алға шығып, кейде «хабарды сақтау орны» деп атайды. Файлдық серверде сақталатын, файлға ақпаратты жазып, персоналды компьютерлер жергілікті бір желі электронды поштамен айырбасталды. Соңғысы, өз кезегімен әртүрлі операциондық жүйемен файлдарды біріктіру қолдануын қамтамасыз етеді, мысалы Microsoft LAN Manager және Novell NetWare.

Хабарламаның сапар желіктеуіші бір сақтаудан екіншіге өтуі жеке хаттамалардың немесе версия арқылы стандартқа толық сай емес орындалады. Екі хабарламаны сақтау бір жергілікті желіде бар болуы мүмкін, және жалпы желі арқылы немесе телефон байланыс көмегімен байланысады. Жергілікті желі үшін Электрондық поштаның жүйесіне Microsoft Mail и Lotus cc:Mail жатады. Жергілікті желі үшін электронды пошта бөлім деңгейінде өте жақсы жұмыс істейді. Бұндай жүйелер нашар масштабталған, кейде бірнеше пошталық серверді (бөлімге бірден немесе одан көп бойынша) біріктіру кезінде біраз администраторлық қиындықтар пайда болады.

4,6(96 оценок)

Это интересно:

28.07.2020

Как справиться с гневом, связанным с видеоиграми...

Семейная-жизнь

04.10.2020

Как перестать быть ребенком в глазах родителей: советы психологов...

Хобби-и-рукоделие

18.12.2021

Как сделать кожаные браслеты своими руками: простые шаги для начинающих...

Финансы-и-бизнес

10.05.2020