Исходный файл предоставлен в расширении .cpp, измените на .c
#include <stdio.h>
long int NOD(long int var1, long int var2)
{
while(var1 != var2)
{
if(var1 > var2)
var1 = var1 - var2;
else var2 = var2 - var1;
}
return var1;
}
long int NOK(long int var1, long int var2)
{
return var1 * var2 / NOD(var1, var2);
}
int main(void)
{
long int var1, var2;
scanf("%ld%ld", &var1, &var2);
printf("НОК(%ld, %ld) = %ld\n", var1, var2, NOK(var1, var2));
}
n = input() # n тут берется как строка(слово)
composition= 1
summa = 0
mult=0
h=0
for i in n: #читает каждый элемент строки по 1 символу
summa += int(i) #Складывает каждый элемент где int() - превращает символ в цифру
if int(i) != 0 and int(i)%2==0:
composition *= int(i)
if int(i)%3==0 and int(i)!=0:
mult+=1
h+=1 # - для кол-ва цифр в числе
print("\nсумма: ", summa)
print("Кратные числа трем: ", mult)
print("произведение четных : ", composition)
print("Среднее арифметическое цифр: ",str(round((summa/h),1))) #round помжно убрать, округлил до 1 знака после запятой
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
procedure AB(a,b:array of integer);
begin
var (iaMax,ibMax):=(a.IndexMax,b.IndexMax);
var t:=a[iaMax]; a[iaMax]:=b[ibMax]; b[ibMax]:=t
end;
begin
var a:=ArrRandom(9,-99,99);
Write('A: '); a.Println;
var b:=ArrRandom(11,-99,99);
Write('B: '); b.Println;
AB(a,b);
Write('A: '); a.Println;
Write('B: '); b.Println;
end.
<u>Пример</u>
A: -46 -76 98 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 80 -50 -55
A: -46 -76 80 -83 84 8 -14 46 8
B: 29 -36 37 78 -20 35 -77 -23 98 -50 -55
Тут описано - http://edufuture.biz/index.php?title=Об%27єкти_та_операції_над_ними
Ответ:
rs1 = золото
rs2 = промышленник
rs3 = пленник
rs4 = мышление
temp = ленник
На экране
золото промышленник пленник мышление
Объяснение:
Функция Copy возвращает подстроку строки (получается новая строка).
Copy(S, Index, Count)
S - строка. Index и Count - целые числа. Функция Copy копирует часть строки S начиная с буквы с номером Index содержащую Count букв.
Процедура Delete - удаляет подстроку из строки (изменяется указанная строка).
Delete(S, Index, Count)
S - строка. Index и Count - целые числа.Процедура Delete удаляет из строки S, начиная с буквы с номером Index - Count букв.
Функция Length - возвращает длину строки (получается целое число).
Length(S)
S - строка.
s = золотопромышленник
rs1 = copy (s,1,6) = золото
rs2 = copy (s, length(rs1)+1,length(s)-length(rs1) = copy (s,6+1,18-6) = copy (s,7,12) = промышленник
temp = s = золотопромышленник
delete (temp,1,12)
temp = ленник
rs3 = s[7]+temp = п+ленник = пленник
rs4 = s = золотопромышленник
delete (rs4,1,9)
rs4 = мышленник
delete (rs4,7,1)
rs4 = мышленик
rs4[length(rs4)] = rs4[5]
rs4[8] = rs4[5]
к = е
rs4 = мышление
Выводим слова на экран через пробел.