Var x, temp, p, a, original: integer;
found: boolean;
begin
found:=false; //переменная примет значение "истина" тогда, когда число А будет найдено в цифрах первого числа
writeln('Введите натуральное число");
Readln(original);
Writeln('Введите число A');
Readln(a);
x:=original;
p:=1; //будет хранить произведение цифр числа(если приравнять нулю, то произведение всегда будет равно нулю)
while x>0 do //пока X болльше нуля
begin
temp:=x mod 10; //заносим последнюю цифру числа X в переменную temp
if temp=a then found:=true; //если цифра числа равна A, то помечаем, что нашли ее
p:=p*temp; //домножаем произведение на цифру
x:=x div 10; //отбрасываем последнюю цифру числа через целочисленное деление
end;
Writeln('Произведение цифр числа ' + original + ' равно ' + p);
if found then writeln('Цифра' + a + ' есть в исходном числе ' + original)
else writeln('Цифра ' + a + ' отсутствует в оригинальном числе ' + original)
end;
// PascalABC.NET 3.2, сборка 1389 от 01.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
write('оценки: ');
var a:=ArrRandom(25,1,5).Println();
write('кол-во неуспевающих: ',a.Where(x->x<=2).Count());
end.
//Microsoft (R) C/C++ Optimizing Compiler Version 19.00.23506 for x64
#include <iostream>
int main()
{
int a, b;
cin >> a >> b;
std::cout << a + b << std::endl;
}
9 Кбатй = 73728 бит (кбайт=8192 бит)
73728/1536=48сек
512*48=24576бит=3072 байт ( 1 байт = 8 бит)
Word или другой текст редактор.Adobe Reader или еще какие нить читалки.