Від програми в якому він створюється, редагується, зберігається.
#include <fstream>
#include <iostream>
using namespace std;
int main()
{
int N;
int array[100];
ifstream file1 ("input.txt");
ofstream file2 ("output.txt");
file1 >> N;
for(int i = 0;i < N;i++) {
file1 >> array[i];
if(i % 2 == 0)
file2 << array[i] << " ";
}
return 0;
}
Полагаю, что так:
program num;
uses crt;
var
x,y,z: integer;
BEGIN
write('Enter the first number: ');
readln(x);
write('Enter the second number: ');
readln(y);
z:=x*y;
if (z<0) AND ((z mod 2) = 0) then
write(z*-2)
else
write(z*1.5);
<span>END.</span>
Заполни ячейки A2, B2, C2
Sub Calculate() 'Начало процедуры
Dim deposit As Integer 'величина вклада
Dim period As Integer 'срок вклада
Dim percent As Integer 'годовая процентная ставка
Dim day_percent As Double 'ежедневная процентная ставка
Dim profit As Double 'доход
Dim result As Double 'итог
deposit = Cells(2, 1).Value 'присваиваем величине вклада значение ячейки А2
period = Cells(2, 2).Value 'присваиваем сроку вклада значение ячейки B2
percent = Cells(2, 3).Value 'присваиваем годовой процентной ставке значение ячейки C2
day_percent = period * percent / 365 'ежедневная процентная ставка = срок вклада (умножаем) на годовую процентную ставку и (делим) на 365 дней
profit = deposit * day_percent / 100 'доход = величина вклада (умножаем) на ежедневную процентную ставку и (делим) на 100%
result = deposit + profit 'Итог = величина начального вклада (плюс) доход
Cells(6, 3).Value = profit 'заносим доход в ячейку C6
Cells(7, 3).Value = result 'заносим итог в ячейку C7
End Sub 'Конец процедуры
Var
n,i,chet:integer;
s:string;
begin
readln(n);
str(n,s); // Функция str преобразует число n в строку s
for i:=1 to length(s) do begin
if (ord(s[i])-48) <= 0 then halt; // Процедура halt завершает программу если введенное число <=0
if (ord(s[i])-48) mod 2 = 0 then chet:=chet+1;
end;
writeln('Кол-во цифр - ',length(s),' Кол-во четных - ',chet);
<span>end.</span>
