Найти сумму всех четырехзначных чисел в записи которых встречается хотя бы одна цифра 5

296

463

Посмотреть ответы 2

Ответы на вопрос:

Hamidylla

Информатика

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

program n1; uses crt; var a,b,c,d,s,i: integer; begin for i: =1000 to 9999 do begina: =i div 1000; b: =i mod 1000 div 100; c: =i mod 100 div 10; d: =i mod 10; if (a=5)or(b=5)or(c=5)or(d=5) then s: =s+i; end; writeln('summa ravna ',s); readlnend.

пушокс

Информатика

4,4(73 оценок)

Что будет выведено в результате выполнения: а: = 'электростанция'; writeln (copy (а, 2, 3) + copy (a, 12, 3) ); ? лекцияопределите результат выполнения: с: = ' лефортово' ; f: = length (с) + length (с); ? переменной f присвоит значение 20из слова информатика получено слово формат. вставьте пропущенные значенияcopy('информатика', copy('информатика',3 ,6) что будет выведено в результате выполнения: writeln ('24 + 24 =', 24 + 24)? 24 + 24 =48что будет выведено в результате выполнения: а: = 'электростанция'; writeln(copy(a,1,7)); электро