Ответ:
#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;
}
ABC Паскаль
------------------
var
sum:longint;
begin
sum:=0;
// основной цикл
for var i:=3 to 19 do
begin
sum:=sum+5*i;
writeln (i*5);
end;
writeln('Сумма всех двузначных чисел кратных 5 = ',sum);
end.
Var i,n,s:integer;
begin
readln(n);
for i:=1 to n do
s:=s+(2*i-1);
writeln('S=',s);
<span>end.</span>
Как сварить сосиски:
1) включить плиту;
2) поставить на нее кастрюлю с водой;
3)подождать пока вода закипит;
4)опустить сосиски в воду.
5) подождать 2-3 минуты;
6)вытащить сосиски;
7)плиту выключить , воду вылить.
program z1;
var a,b,c:real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
if (a>b) and (a>c) then writeln('a - наибольшее число') else
if (b>a) and (b>c) then writeln('b - наибольшее число') else
writeln('c - наибольшее число');
if (a<b) and (a<c) then writeln ('a-наименьшее число') else
if (b<a) and (b<c) then writeln ('b-наименьшее число') else
writeln ('c-наименьшее число');
if ((a>b) and (a < c)) or ((a < b) and (a > c)) then
writeln('a-среднее число')
else
if ((b > a) and (b < c)) or ((b < a) and (b > c)) then
writeln('b-среднее число')
else
writeln('c-среднее число');
end.
