//PascalABC.NET 3.0
function check(x: integer): boolean;
begin
var tmp := x * x;
Result := true;
repeat
if tmp mod 10 <> x mod 10 then Result := false;
tmp := tmp div 10;
x := x div 10;
until (x = 0) or not(Result);
end;
begin
var n := ReadInteger('Введите N:');
Range(1, n).Where(x -> check(x)).Select(x -> x.ToString + '*' + x.ToString + '=' + (x * x).ToString).Println(NewLine)
e<span>nd.</span>
Язык С++.
#include <iostream>
using namespace std;
int main() {
int a, b, c;
cin >> a >> b >> c;
if(a + b > c && a + c > b && b + c > a){
if (a == b && a == c && b == c) {
cout << "Равносторонний." << endl;
}
else if (a == b || a == c || b == c) {
cout << "Равнобедренный." << endl;
}
else {
cout << "Разносторонний." << endl;
}
}
else
cout << "Треугольник не существует." << endl;
}
Файл это можно сказать структура данных,или текст с кодом для программы а ведь программы не работают без файлов.
(Потому-что в файлах для программ содержится код)
(А когда программа запускается она требует файл с кодом)
В файле может быть текст или картинка или музыка.
Файл имеет расширении,а расширении в файле может обозначать его предназначение (допустим текст(txt) или видео с музыкой (mp3 mp4)
А программа это комбинация данных с помощью которых позволяет компьютеру что либо делать (допустим вычислять)
Так чем же отличается программа от файла , да тем что файл это часть программы.А программа можно сказать это множество скрещённых файлов.
X=[] # задаем пустой список для чисел
while True: # открываем бесконечный цикл
i=int(input()) #вводим целое число
if i!=0: # если это число не 0
x+=[i] # то запишем его в список
else:
break # иначе стоп циклу
mx=max(x) # найдем максимальный элемент в списке
k=0 # зададим начальное значение счетчику 0
for i in x: # для каждого числа из списка х
if i==mx: # если это число равно максимуму
k+=1 # увеличим счетчик на 1
print(k) # вывод счетчика