program raf105;
const
n = 3;
var
a:array[1..n,1..n] of integer;
i,j:integer;
x:boolean;
begin
for i:=1 to n do
begin
writeln('Введите три элемента строки №',i,' по очереди');
for j:=1 to n do
readln(a[j,i]);
end;
writeln('Номера строк в которых все элементы положительные и чётные:');
for i:=1 to n do
begin
if x
then writeln(i-1);
x:= true;
for j:=1 to n do
if x and (not(a[j,i]>0)) or (not((a[j,i] mod 2)=0))
then x:=false
end;
end.
<h3><em><u>Язык PascalABC</u></em></h3>
Так как всего было 12 символов и каждому символу соответствует одна из двух конкретных букв, то:
Всего вариантов расшифровки может быть 12^2 = 144
Переведём гигобайты в мегабайты:
1024 * 2 = 2048 мб (на флешке)
Потом узнаем размер 4-ёх папок:
635 * 4 = 2540 мб
И узнаем, сколько места нам не хватит:
2540 - 2048 = 492 мб
Ответ: не хватит 492 мб
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