В первом задании по моему вместо тире должна стоят → (импликация)
(Последняя буква гласная ^ Третья буква согласная) → Первая буква согласная? Россия - истина, Люксембург - истина, Америка - истина, Испания - ложно.
Не знаю, какая именно формула у тебя должна быть во втором условии, но ты явно намудрил со скобками
Во-первых, ты пишешь cos(a,3), фактически функция косинуса принимает только 1 аргумент, и если ты хотел косинус в кубе, то тебе надо pow(cos(a),3), примерно так
uses crt;
var ch,i,n,count:integer;
begin
n:=0;
count:=0;
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
while ((ch<>0) and ( n <1001)) do
begin
write(' Введите число : ');
readln(ch);
if ((abs(ch)<30000) and (ch div 100 <> 0 ) and (ch mod 7 = 0)) then inc(count);
inc(n);
end;
writeln(count);
readln;
end.
1-4
2-2
3-3
4-1
я надеюсь что так.прости если неправильно
Если ты думаешь что радиоволны то ты ошибаешься. <span>На самом деле, радиоволны в микроволновом излучении несут информацию, например, о нарушении дипольной анизотропии реликтового излучения которое говорит о свойствах Вселенной происходивших 14 миллиардов лет назад,
днк 2 место по хранению информации
CD-ROM хранит информацию около 30 лет
а дискета около полугода</span>