Каждый символ содержит 8 бит, а в слове информатика 11 символов, поэтому 11*8=88 бит
Var s,t:integer;
begin
write ('s='); readln(s);
if (s>-10) and (s<10)
then writeln ('Число однозначное')
else begin
t:=s mod 10;
writeln (abs(t));
end;
end.
1.
var f:text; s:string; r:integer;
begin
assign(f,'nedelya.txt');
rewrite(f);
repeat
write('Введите день недели: ');
readln(s);
writeln(f,s);
write('Повторить (1-да, 0-нет)?');
readln(r);
until r=0;
close(f);
end.
Пример:
Введите день недели: понедельник
Повторить (1-да, 0-нет)?1
Введите день недели: вторник
Повторить (1-да, 0-нет)?1
Введите день недели: среда
Повторить (1-да, 0-нет)?0
Содержимое файла nedelya.txt:
понедельниквторниксреда
2.
var f:text; s:string; r:integer;
begin
assign(f,'nedelya.txt');
append(f);
repeat
write('Day of the week: ');
readln(s);
writeln(f,s);
write('Repeat (1-yes, 0-no)?');
readln(r);
until r=0;
close(f);
end.
Пример:
Day of the week: Thursday
Repeat (1-yes, 0-no)?1
Day of the week: Friday
Repeat (1-yes, 0-no)?1
Day of the week: Saturday
Repeat (1-yes, 0-no)?0
Содержимое файла nedelya.txt:
понедельник
вторник
среда
Thursday
Friday
Saturday
3.
var f:text; s:string;
begin
assign(f,'nedelya.txt');
reset(f);
while not eof(f) do
begin
readln(f,s);
writeln(s);
end;
close(f);
end.
Результат:
понедельник
вторник
среда
Thursday
Friday
Saturday
#include<iostream.h>
<span>using <span>namespace std;
into main()
{
</span></span>int array[15];
int a = 0; // число пятёрок;
// Тут заполняем из промежутка от -20 до 20
for(int i = 0; i < 15; i++)
{
if (array[i] == 5)
{
a++;
for( int j = i ; j < 15 - 1; j++ )
{
array[j] = array[j+1] ;
}
}
}
cout << "Удаленно:" << a << " чисел";
return 0;
}
=C$22*$D22
D$22 -<em />полуабсолютная<em />ссылка. После копирования буква столбца сместится влево (D-C)
$D23 - <em />полуабсолютная<em />ссылка. После копирования цифра строки сместится вверх (23-22)
