Программа вылетает т.к. много значений перебирает, если не хочется подобного просто смените ограничение.
var i,a,b,c,d:integer;
begin
for i:=1000 to 9999 do begin
a:=i mod 10;
b:=(i div 10) mod 10;
c:=(i div 100) mod 10;
d:=(i div 1000) mod 10;
if (a=b) and (b=c) and (c=d) then writeln ('odinakovie cifri - ',i);
if (a<>b) and (a<>c) and (a<>d) and (b<>c) and (b<>d) and (c<>d) then writeln('ne odinakovie cifri - ',i);
end;
Ответ:
А где сочинение? Прикрепи
Алгоритм - это способ (программа) решения вычислительных и других задач, точно предписывающий, как и в какой последовательности получить результат, однозначно определяемый исходными данными. Алгоритм - одно из основных понятий математики и кибернетики. В вычислительной технике для описания алгоритма используют языки программирования.
Ответ:
#include <iostream>
#include <algorithm>
#include <cmath>
int gcd(int a, int b){
a = std::abs(a);
b = std::abs(b);
while(b > 0){
a %= b;
std::swap(a, b);
}
return a;
}
int main(){
int a, b;
std::cin >> a >> b;
int g = gcd(a, b);
std::cout << g << std::endl;
return 0;
}
Для начала вычислим скорость данных по каналу: 3072Кбайт/5 мин=614,4 Кбайт/мин. Следовательно, файл размером 6144 Кбайт можно передать за 6144/614,4=10 мин