Файл - он один, а файловая система - это несколько файлов.
#include <math.h>
#include <stdio.h>
int main(void)
{
double
r = 0,
m = 0;
r = 1/pow(22.5, 0.5) - 7.5*(1/(pow(2.87, 4/3))) * cos(1);
m = -1 * log10(pow(1.6, pow(1.2, 1/3)) * exp(3));
printf("Переменная r = %.3f\n", r);
printf("Переменная m = %.3f\n", m);
}
gcc
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
function IsPalindrom(w:string):=(w.Length>1?w=ReverseString(w):False);
begin
var s:=ReadlnString('>');
Writeln('Палиндромов: ',s.ToWords.Where(w->IsPalindrom(w)).Count)
end.
<u><em>Тестовое решение</em></u>
> мадам ваш заказ уже несут - слышу топот официанта
Палиндромов: 3
Ответ:
Лучше сразу избавиться от вируса
Объяснение:
(Сбросить настройки, переустановить виндовс, скачать анти вирусник, почистить ноутбук)
Program comparison;
var
a,b,c:real;
begin
write ('Введите первое число:');
readln(a);
write ('Введите второе число:');
readln(b);
if a>b then
begin
c:=a-b;
write ('Первое число больше второго на ', c);
end;
if a<b then
begin
c:=b-a;
write ('Второе число больше первого на ', c);
end;
if a=b then
write ('Числа равны');
end.